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Colossus 4 Chess 


Acorn have announced changes to their customer 
support role, to take effect by the end of March. In 
future, Acorn will not provide direct support to end 
users, but will expect authorised dealers to do this. 
Acorn's own support will be revamped to provide fast 
and efficient backup to dealers. One major feature of 
the new service will be a considerable reliance on a 
viewdata service, which will provide down-loading of 
information and software. Large parts of this will be 
accessible directly by users with the necessary 
equipment, though some parts will be for dealers only. 

BEEBUG is a full Acorn dealer, so we will have the 
benefit of Acorn's support as before, and together with 
our own Customer Support department, we can offer 
help with most aspects of using your BBC Micro, Master 
or Compact. 


We can still supply the BEEBUG Sideways RAM 
module (see BEEBUG Vol. 5 No.7) either as a kit for you 
to make up yourself, or as a ready made unit. This is a 
really cheap way to add sideways RAM to your machine. 
With this issue, David Graham describes an Alarm 
System for Master owners, and this is available as a 
ROM for just £6.45. We have also produced a disc 
containing all the Filer programs, updated and improved 
as described in this issue, with a revised and extended 
set of notes. These members' offers are described more 
fully in this month's supplement. 


As announced last month, we are establishing a 
major database on Micronet. Although this is likely to be 
incomplete for a while yet, Micronet browsers may like 
to take a peek at *800909#. 


We hope that the new classification symbols for 
programs and reviews clarify matters with regard to the 
variety of Acorn systems. The complete set of icons is 
shown below. These show clearly the valid combinations 
of machine (version of Basic) and filing system for each 
item, the Tube compatibility. A single line through a 
symbol indicates partial working (normally just a few 
changes will be needed); a cross shows total 
incompatibility. Reviews do not distinguish between 
Basic | and Il. 


COMPUTER SYSTEM FILING SYSTEM 
Master (Basic IV) [ji] abos [M 
Compact (Basic IV) (fà DFS Di 
Compact (Basic VI) G Cassette [22] 
Model B (Basic II Ti TUBE COMPATIBILITY 
Model B (Basic I) if Tube Key 
Electron E 
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Quack Quack 
Now available for Fleet 


Street Editors is a disc 
full of Walt Disney cartoon 
characters such as Mickey 
Mouse and Donald Duck. And 
there's no copyright re- 
striction as long as the 
resultant work is not sold 
for profit. 

Also from Mirrorsoft 
comes Admin Xtra, four 
utilities for use with 
Fleet Street Editor; Mode 
Conversion, Disc Indexing 
and Filing, Poster Maker 
and Panel Viewer. 


Walt Disney Graphics and 
Admin Xtra both cost £14.95 
on either 4Ø track or 86 
track disc. Mirrorsoft are 
on 91-377 4837. 


Puffer Trains etc 

William Poundstone's 
"The Recursive Universe' is 
described as a "fantastic 
explosion of intellectual 
fireworks". The book offers 
a wide ranging discourse on 
life and the universe based 
on the game of Life devised 
by John Conway. You can 
learn about gliders, puffer 
trains, beehives and many 
more fascinating and chang- 
ing life-forms, and a list- 
ing is included to imple- 
ment Life on any micro. The 
book costs £5.95 in paper- 
back and is published by 
Oxford University Press. 
You can contact them on 
(8865) 56767. 


Real Graphics 

New from the author of 
Glentop's 3D Graphics 
System (see BEEBUG Vol.4 
No.5) is the Real Time 
Graphics System from Sili- 
con Vision. This package 
allows you to create 3D 
wireframe objects which can 
be accessed from your own 
Basic or Assembler programs 
to produce stunning animat- 
ed seguences. 


The system is supplied 
as a 32K Graphics ROM plus 
five discs anda 115 page 
manual all for ETS 9% 
Ideal for creating your own 
Elite style games, and for 
many more serious applicat- 
ions. Contact Silicon Vis- 
ion on Øl-422 2274, 


Help for Teachers 

For teachers bewildered 
by the volume and variety 
of software available for 
schools, BBC Education has 
produced an evaluation 
pack. This contains three 
discs: one with samples of 
primary software, one with 
samples of secondary soft- 
ware, and the third pro- 
viding complete demonstrat- 
tons. | Of ‘Maths with a 
Story’ and 'Picture Craft’. 
All of these are from 
educational software pro- 
duced by the BBC, but the 
packs are being distributed 
free through LEA advisers. 
Additional copies cost 
£5.98 can be had from David 
Watkins, Education Officer, 
Computer Software, BEC, 
Villiers House, The Broad- 


way, London WS 2PA, or 
telephone 91-743 8000. 


Warbling Red Boxes 
Red Boxes (see review in 


BEEBUG Vol.5 No.7) can now 
'warble'. Know as Red 
Five, this is the latest 


addition to the Red Box 
home security system that 
can be based on a BBC 
micro. The new unit offers 
16ødb of warble, and costs 
£36.95 inc post & packing. 
A project manual is also 
available at £9.95 to help 
you make the most of your 
Red Boxes which are 
supplied by Electronic 
Fulfilment Services Ltd. on 
(9223) 323143. They may 
also be purchased through 
BEEBUG with our normal 5% 
discount for members. 


Sci-speak 

If English is insuffic- 
ient for your word 
processing needs then the 


SCIWAYS ROM from Mayhew 
Telonics may be what you 
need. This allows easy 


printing of science-based 
characters and symbols, 
both on the screen and on 
Epson-compatible printers. 
The entire Greek character 
set is supported, as are 
all the main scientific and 
mathematical symbols, sub- 
script, superscript and 
user-defined characters. 
SCIWAYS can be used with 
either Wordwise or View, 
and costs £38.53 inc VAT. 
Mayhew may be found on 
(@202) 747695. 
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CUMANA'S 


Astron Card 


Is the Astron Card the next major stor- 
age revolution or a nine days wonder? 
Simon Williams has been giving the 
question some thought. 


Product: Astron card adaptor, boxed 
socket and sample game on card 
Supplier: Cumana Ltd. 


Pines Trading Estate, 
Broad Street, 
Guildford, Surrey GU3 3BH. 
Tel. (0483) 5031 

Price : £24.95 (BBC micro), 
£44.95 (Master) 

In the last ten years or so, small 
rectangles of plastic have made larger and 
larger inroads into our daily lives. 
Credit cards from banks have increased 
the convenience of shopping, those from 


individual stores have offered instant 
credit to spread the cost of purchases. 
The information these cards carry is 
embossed in the plastic itself and read by 
running an inked roller across the raised 
type. : 


The banks have gone further than this 
with the introduction of automatic cash 


dispensers. The information on cash cards 
is encoded into magnetic strips across 
their backs. The dispenser can read this 


code and verify the card before allowing 
the user to withdraw money from the 
machine at any time. 


Even with the autobank card, though, 
the amount of information which can be 
stored is relatively small. The latest 
evolution of the plastic card offers far 
greater votential, and may well prove to 
be the most important computer innovation 
since the advent of the floppy disc. In 
this country, one of the leading exponents 
of 'chip-on-a-card' technology is the disc 
drive manufacturer, Cumana, and you can 
try out '‘Astron' cards, as the company 
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calls them, with an 
for your BBC Micro or Master. 


inexpensive adaptor 


The BBC Micro adaptor consists of a 
small plastic box connected to the micro 
by a half metre length of ribbon cable. 
The adaptor plugs into any vacant ROM 
socket, and can be used from an expansion 
board as well as from the main p.c.b. The 
cable has to come out between the case 
halves or through the ventilation slot at 
the rear. It's a shame an insert couldn't 
be made for an Astron edge connector to 
fit in the speech ROM hole to the left of 
the keyboard. 


Inside the box there is a small 
circuit board and the card socket itself, 
which is similar to an edge connector, but 
with guides at either end to ease the 
insertion of the card. The adaptor for the 


Master fits into the cartridge port, and 
is rather more expensive than the BBC 
unit. 


The Astron card is a credit card-sized 
piece of 2mm thick plastic, with two rows 
of gold-plated contacts at one end. 
Embedded in the plastic is a ROM, RAM or 
EPROM chip, much like the chips inside 
‘normal’ 28 pin ROM packages. The card is 
very durable, and quite tough enough to 
slip in a wallet or pocket. The system 
could be further miniaturised, as the 
chip is mounted close to the contacts, 
and a lot of the length of the card is 
there to take advertising or 
instructions. 


Once the adaptor has been connected to 
the micro (with the power switched off), 
you insert the card and switch on. No 
matter which socket the adaptor is 
plugged into, it takes priority and the 
title screen for the supplied Superior 
Software game comes up on your screen. To 
be a direct replacement for a disc, you 
should really be able to insert and 
extract cards with your micro on, and to 
select them with the ROM filing system. 
Perhaps this will come later. 


The game itself, 'Star Striker', is a 
copy of the old arcade favourite 'Moon 
Cresta', where you plough your way 
through wave after wave of aliens with a 
three tier ship that is forever 
separating and rejoining. If anything, 
the game is rather too easy to play, and 
once you've been through half a dozen 
waves they start to repeat. The game does 
serve to point out the advantages of the 
Astron card, though: instant loading, no 
disc errors and the possibility of 
holding many kilobytes in your pocket. 


au 


So far, the Astron card has moved very 
slowly in gaining acceptance from 
software houses and the public. It's a 
bit of a ‘chicken and egg' problem, as 
the average micro-user will only show 
passing interest while there is a 
shortage of software in the new medium, 
and software produces are reluctant to 


invest in another form of data storage 
while there are few potential buyers. 


The two main suppliers to have 
expressed interest so far are Superior 
Software, who are to market several of 
their BBC Micro games on Astron cards at 
the same price as the disc version, and 
ACP, who can provide a selection of their 
utilities 'on-card'. 


The drawback at the moment is the 
price of the cards themselves. Although 8K 
and 16K EPROM cards are available for 
between £5 and £18, this compares 
unfavourably with the 28-pin chip variety. 
The advantages of portability and 
robustness have to be weighed against the 
extra cost. Perhaps for this reason, 
Cumana are concentrating on the serious 
software market for their cards. With 
business and utility software, the extra 
cost of the card represents a smaller 
proportion of the total. The company is 
also looking at other target micros, and 
there are rumours that the portable 
machine from Clive Sinclair's new company 
may make use of them. 


Perhaps the most exciting feature of 
the Astron card is the development of 
large capacity ROM and RAM cards. Cards of 


up to half a Megabyte are already 
available (at a price) and | and 2 
Megabyte ones are expected soon. Imagine 


carrying the equivalent of a hard disc 
full of data on five credit cards! RAM 
cards will be battery-backed with a five 
year lithium cell and Cumana. are 
developing a DFS-like filing system to 
allow RAM cards to be used as discs. 


At present, the price of the cards 
probably restricts them to EPROM chip 
replacements, where their added 
convenience and portability are assets. If 
Cumana can get enough adaptors onto the 
market, as they deserve to, to be able to 
offset the development costs of the larger 
ROM and RAM cards, the Astron card could 
take over as a primary means of data 
storage. 


The reasonable cost of the adaptor 
gives you the chance to try the new 
technology for yourself. And you can 
always zap a few aliens while you're at 
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HEH FONTS 


FOR YOUR 
BEER 


Tired and bored with just one style of 
lettering on your screen? Thomas 
Williamson’s program provides a 


much better choice. 


It is often useful to be able to 
display text in a variety of different 
styles. This program allows you to do so 
easily with a simple VDU command. It 
provides six new fonts, and any number of 
these can be combined to provide further 
interesting effects. The fonts are: 


1. Double height 
2. Italics 

3. Bold 

4. Fuzzy 

By Thick 

6. Thin 


USING THE PROGRAM 

the program into your computer 
and save it to disc or tape. Then run the 
program to assemble the machine code 
routine needed, amd you are ready to 
choose a new style of lettering. 


To select any font you can now use a 
VDU command in the form: 


VDU23,2,£1,£2,£3,£4,£5,£6,Ø,Ø 


The value of fl determines the state of 
font 1 (double height), f2 the state of 
font 2 and so on. The values to use for 
each 'f' are: 


1 to switch a font on 
Ø to switch a font off 


while any other value will leave a font as 
it was (in the examples we have used a 
'9'). The two zeros must always be 
included at the end, as a VDU 23,2 command 
always expects eight values to follow. 


Once a font (or combination of fonts) 
has been selected, all text will be 
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To select fonts tupe : 
VDU 23,2,8,8,0,0,E,F OG 


displayed in that font, except in mode 7. 


To obtain double height fuzzy text, 
for example, type: 


VDU23,2,1,0,9,1,9,0,0,0 


To set italics without 
other fonts, type: 


affecting the 


VDU23 2,971,979, 9,9, 8,8 


Note, that even if you are changing 
only one of the fonts, all eight numbers 
should still be included. The VDU 23,2 
command may be used either in immediate 
mode, or in your own programs, providing 
the code to implement this has been 
activated first. 


If you want to save the machine code 
so that it can be *RUN, run the program to 
assemble the code as before, and then 


type: 
*SAVE FONTMC 968 +140 


You can, of course, replace FONTMC by 
any name of your choice. If you set a font 
before saving the code, then that font 
will be automatically selected when the 
code is *RUN. If you write a program using 
the extended VDU 23 calls to select 
different fonts, include *RUN FONTMC near 
the start of the program so that the 
routine is loaded automatically. 


Note that characters 224 and 225 are 
used by the program to create the new 
fonts, so these should not be redefined 
while the program is in operation. 


HOW THE PROGRAM WORKS 

Two vectors are used by this program. 
The VDU extension vector at &226/&227 is 
used to create the new VDU command. On 
entry the carry flag is set to indicate 
that an unrecognised VDU 23,n has been 
issued. The accumulator holds 'n' and the 
eight parameters are stored in locations 
&31C to &323. 


The program also uses the write 
character vector at &2ØE/&2ØF to intercept 
characters before they are output. Then, 
having checked the character range, the 
VDU queue, and the current mode, it buts 
the characters definition into &CØØ-&CØ7 
and alters it accordingly before printing 
it. This technique was covered in the two 
"First Course’ articles in Vol.5 Nos. 6 & 
7, and you should refer to these articles 
if you require more information. 


USING A PRINTER 

Although the character definitions are 
altered for display on the screen, any 
output to a printer will consist of a 
stream of ASCII codes which will be 
printed normally. If you wish to print 
these new characters, then a suitable 


graphics screen dump program must be used. 


Double Height Te 


1Ø REM Program New Fonts 

20 REM Version BØ.1 

3Ø REM Author T.Williamson 

40 REM BEEBUG March 1987 

50 REM Program subject to copyright 


1ØØ ON ERROR GOTO 179 
11Ø MODE 1 

12ø PROCfonts 

13Ø CALL start 

140 PROCdemo 

158 END 


17Ø ON ERROR OFF 

186 MODE 7 

IF ERR=17 THEN END 

200 REPORT:PRINT" at line ";ERL 
218 END 


18008 DEFPROCdemo 
1810 VDU23,2,1,Ø,1,Ø,1,9,9,Ø 
1020 PRINTSPC9"To select fonts type :" 


1160 
1170 
1186 


PRINT 'SPC8"VDU 23,2,A,B,C,D,E,F,9,0"" 
VDU23,2; 9; 0; 0; 

COLOUR2: PRINTSPC6 "Where"; 

FORA %=ØTO5 

READAS 

VDU23,2 

IFA%>ØFORB%=1TOA%: VDUØ:NEXT 

VDU1 : FORB3=1T07-A%: VDUØ: NEXT 

PRINTTAB (13)CHRS (65+A%) " = "AS! 
IFA%>Ø PRINT 

NEXT | 
VDU23,2;9;0;0;9 | 
COLOUR3 


ENDPROC 


DATADOUBLE HEIGHT,ITALIC,BOLD,FUZZ 


Y,THICK,THIN 


1198 
1200 
1219 
1220 
1230 
1240 
1250 
1260 
1276 
1288 
1290 
1300 
1316 
1328 
1336 
1346 
1350 
1360 
1376 
1386 
1396 
1400 


DEFPROCfonts 
oldvdu=! ( (!&FFB7 AND&FFFF)+&26) 
oldwrch=! ((!&FFB7 AND&FFFF)+&E) 
0%=oldwrch 
osword=&FFF | 
men%=&9Ø 

FORI $=ØTO2STEP2 
PS=mems: data=P% 
1P3=Ø:P%14=Ø 
P%=P%+8 

[OPTI 

-newvdu 

PHP 

BCC notvdu 
CMP#2:BNE notvdu 
PHA: TXA : PHA 
LDX#7 

.move 

LDA&31C,X 

AND#1 :CMP&31C,X 
BNE nostore 


STA data,X 
-nostore 
DEX:BPL move 
PLA: TAX: PLA: PLP 
RTS 

-notvdu 

PLP:JMP oldvdu 
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149% .newwrch 

15ØØ PHP:PHA 

151Ø STA&BEF 

1520 LDA&356:CMP 44 

153Ø BEQ exit 

1540 LDA data:BEQ notdbl 
155Ø PLA:PHA 


Feet EE 
fi fax 


EI 
zx 


156Ø CMP#13:BNE del 

157Ø LDA#1Ø:JSR O% 

158Ø JMP exit 

1590 .del 

16ØØ CMP#127:BNE notdbl 

161Ø LDA#1Ø:JSR 0% 

162Ø LDA#127:JSR O% 

163Ø LDA#11:JSR 0% 

1649 LDA#9:JSR O% 

1650 JMP exit 

1668 .notdbl 

167Ø PLA: PHA 

168Ø SEC:SBC#32:BMI exit 

169Ø SEC:SBC#95:BPL exit 

17ØØ TXA:PHA:TYA:PHA 

1710 LDXH&FF:LDYHSR 

1728 LDA#&A 

1738 JSR osword 

1740 LDAHØ:STA&CØS 

1758 JSR choices 

1766 LDA#224:JSR 0% 

1778 LDA data:BEQ nrml 

1788 LDA#19:JSROS:LDA#8:JSR O% 

1790 LDA#225:JSR O%:LDA#11:JSR 0% 
' 18ØØ .nrml 
| 181Ø PLA:TAY:PLA:TAX:PLA:PLP 
| 182Ø RTS 


1840 .exit 
185Ø PLA:PLP 


1860 JMP oldwrch 

1870 : 

1888 .choices 

1898 LDA datat+l:BEQ nxtl 

1908 LSR&CØØ:LSR&CØ 

1910 ASL&CØ5:ASL&CØ6:ASL&CØT 
| 1920 .nxtl 
| 193Ø LDA data:BEQ nxt2 
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194Ø LDX#7:LDY#14 
1958 .dbl 

196Ø LDAS&CØØ,X 
197Ø STA&CØØ,Y 
198Ø STA&CØI,Y 
199Ø DEY:DEY:DEX 
2ØØØ BPL dbl 

2018 .nxt2 

2Ø2Ø LDA data+2:BEQ nxt3 
2Ø3Ø LDX#14 

2048 .bld 

2Ø5Ø LDA&CØI ,X 
2Ø6Ø ORA&CØØ,X 
2Ø7Ø STA&C@1 ,X 
2080 DEX:BPL bld 
2090 .nxt3 

2106 LDA data+3:BEQ nxt4 
2110 LDX#15 

2126 .fzy 

2130 LDA&CØØ,X 
2140 ASLA 

2150 STA&COO,X 
2168 DEX:DEX 

2178 BPL fzy 


hick Text Thick 
xt Thick Text Th 
k Text Thick T 
hick Text T 


2180 .nxt4 

2199 LDA data+4:BEQ nxt5 
2200 LDX#15 

221Ø .thk 

222Ø LDA&CØØ,X 

223Ø ASLA:ORA&CØØ,X 
224Ø STA&CØØ,X 

2250 DEX:BPL thk 

2260 .nxt5 

2270 LDA data+5:BEQ done 
2280 LDX#15 

2299 .thn 

2308 LDA&CØØ,X 

231Ø ASLA:AND&CØØ,X 
232Ø STA&COO,X 

233Ø DEX:BPL thn 

2348 .done 

2358 RTS 

2360 : 

2370 .start 

2386 LDX#newwrch MOD256 
2398 LDY#newwrch DIV256 
2409 STX&20F:STY&20F 
2410 LDX#newvdu MOD256 
2426 LDY#newvdu DIV256 
2430 STX&226:STY&227 
2448 RTS 


2450 ]NEXT 
2468 ENDPROC B 
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GRAPHICS 
BLOCK MOVE 


Nicholas Brozovic's useful technique 
allows any part of a graphics screen to 
be copied to another part of the 
screen. Use it in its own right, or incor- 
porate it in your own graphics 
programs. 


The program listed here will allow any 
part of a mode 2 graphics screen to be 
copied to any other part of the screen. 
The basic procedure can be incorporated 
into your own graphics programs, or you 
may use the complete program given here. 


This allows any mode 2 screen to be 
loaded from disc (or tape). A grid is then 
displayed on the screen and a rectangular 
area marked out to be copied. A new 
position is then marked and the part 
previously selected copied to this 
position. The process may be repeated as 
many times as you wish and the results 
eventually saved. 


USING THE PROGRAM 

Once the program has been typed in and 
saved, you can try running it. A sample 
graphics screen is displayed, but you can 
replace this as prompted by loading an 
alternative graphics screen from tape or 
disc, or by replacing the drawing 
procedure with one of your own. 


Then a grid is displayed, and the 'Z', 
'X', Sa and '/ keys used to move a 
cursor left, right, up and down re- 
spectively. Each position is 'fixed' by 
pressing the space bar (at top left, top 
right and bottom left). Once confirmed, 
the cursor is similarly moved to the top 
left hand corner of the intended image 
position, and the space bar pressed to 
produce the copy. 


The same selected area can be readily 
copied into many different positions, 
producing quite interesting effects, and 
the results saved as and when required. 


10 


UNDERSTANDING THE PROGRAM 

The actual copy procedure (PROCmap) 
has two parameters Y2% and Y%. These are 
the start position to copy from, and the 
start position to copy to, both screen 
addresses. The procedure uses two other 
variables (again screen addresses) that 
must be set beforehand; ENDPOS which 
references the top right corner, and 
ENDBOT which references the bottom left. 


For more information on how to relate 
graphics to screen addresses, see the 
series ‘Machine Code Graphics' Vol.2 


Nos.8, 9 & 18, Vol.3 Nos.1 & 2. 


The other procedures used in the demo 
program are as follows: 


demo main demonstration 

draw sample graphics drawing routine 
loop main loop for repeated copy 
coord collects co-ordinates of points 
grid used to display or remove grid 


loc looks after cursor movement 


choice offers choice of load or save 
save save screen 

load load screen 

message display messages 


ls display load/save message 
filename get filename 
perform OSCLI function 


Graphics programs have always been 
popular with many Beeb users, and whether 
you just use the basic procedure, or the 
entire program, this routine should prove 
most useful. 


1Ø REM Program Block Move 

2Ø REM Version B1.2 

3Ø REM Author Nicholas Brozovic 
4Ø REM BEEBUG March 1987 

5Ø REM Program subject to copyright 


1ØØ ON ERROR GOTO 15Ø 
110 MODE 2 
128 PROCdemo 
138 END 
149 : 
158 ON ERROR OFF 
16Ø MODE 7 
17Ø IF ERR=17 END 
18Ø REPORT:PRINT" at line ";ERL 
19Ø END 
200 : 
1ØØØ DEFPROCdemo 
1Ø1Ø VDUS:VDU23,225,24,24,24,255,255,24 
724,24 
1020 F=&1EF:G=&9Ø 
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1Ø3Ø move=FALSE:quit=FALSE 

1Ø4Ø X2%=8Ø:X%=&77Ø0 

1Ø5ø VDU23,1,Ø;Ø;Ø;Ø; 

1Ø6Ø PROCdraw 

1078 MOVE35Ø,3Ø:GCOL3,6:PRINT"Load (Y/N 
) ?":AS=GETS 

1080 MOVE35Ø,3Ø:PRINT"Load (Y/N) ?": IFAS 
="Y" THEN PROCload 

1898 PROCloop 

1108 ENDPROC 

1110: 

1128 DEFPROCdraw 

1130 MOVE52Ø,518:MOVE1Ø38,518:GCOLØ, 1 
114Ø PLOT85,52Ø,7ØØ:MOVE1Ø38,7ØØ 

1158 GCOLØ,3:PLOT85,1Ø38,518 

116Ø GCOLØ,5:MOVE6ØØ,6ØØ:PLOT85,52Ø,7ØØ 
117Ø GCOLØ,4:MOVE1Ø38, 7ØØ:PLOT85,6ØØ,6Ø 


118Ø ENDPROC 

1198 : 

12ØØ DEFPROC loop 

121@ PROCgrid:PROCcoord 

1228 REPEAT 

1238 PROCmessage:move=TRUE 

1248 PROCloc: PROCmessage 

1250 IF quit=TRUE THEN PROCchoice:END 

1260 PROCgrid: PROCmap (X2% ,X%) 

1278 PROCgrid 

1288 UNTIL FALSE 

1298 ENDPROC 

1308 : 

1319 DEFPROCcoord 

1328 move=FALSE 

133Ø GCOL3,7:MOVE1Ø,3Ø:PRINT"Define :" 

134Ø MOVE7ØØ,3Ø:PRINT"Top left" 

1350 PROCloc:F1=F+25:G1=G-16:X2%=X% 

136Ø MOVE7ØØ,3Ø:PRINT"Top left":MOVE65Ø 
r3Ø:PRINT"Top right":PROCloc 

137Ø F2=F+25:G2=G-16:GCOL3,7:MOVEF1,G1: 
DRAWF2,G2: ENDPOS=X%+7 

138Ø MOVE65Ø,3Ø:PRINT"Tov right":MOVE57 

| Ø,3Ø:PRINT"Bottom left" 
| 139Ø PROCloc: ENDBOT=X%-&288 

1400 F3=F+25:G3=G-1 6 :MOVEF2 ,G2:DRAWF2,G 
3: DRAWF3 ,G3:DRAWF1 ,G1 

1418 MOVE1@,30:PRINT"Define :":MOVES7Ø, 
3@:PRINT"Bottom left" 

1420 IF G1<>G2 OR FI<>F3 THEN SOUND1,-1 
5,190,7:GCOL3,7:MOVEF1 ,G1 : DRAWF2 ,G2: DRAW 
F2,G3:DRAWF 3 ,G3: DRAWF I ,G1 : PROCCOord 

143Ø MOVE35Ø,3Ø:GCOL3,6:PRINT"O.K. (Y/N 
) ?":A$=GETS 

144Ø MOVE35Ø,3Ø:PRINT"O.K. (Y/N) ?":GCOL 

| 3,7:MOVEFI ,G1:DRAWF2,G2:DRAWF2,G3:DRAMF3 
/G3:DRAWF I ,G1 

145Ø IF AS="N" THEN PROCcoord 

146Ø ENDPROC 

1478 : 

148Ø DEFPROCgrid 

149Ø GCOL3,2:FORX=&2ØTO11ØØSTEP32 


Beebug March 1987 


| T Ð > nn Ø rer 


15ØØ MOVEØ,X:DRAWI28Ø,X:NEXT 

151Ø MOVEØ,1Ø23:DRAW1279,1Ø23 

1528 FORY=ØTO1|3ØØSTEP&41 

153Ø MOVEY,&2Ø:DRAWY , 1Ø24:NEXT 

1548 ENDPROC 

1559 : 

156Ø DEFPROCMap (Y2%,Y%) 

157Ø FORA=ØTO (ENDPOS-Y2%) 

1588 FORB=ØTO (ENDBOT-Y2%) STEP&28Ø 

159Ø ?(A+B+Y%)=?(A+B+Y2%) 

16ØØ NEXT:NEXT 

161Ø ENDPROC 

162Ø : 

163Ø DEFPROCloc 

1648 GCOL3,7:REPEAT 

1658 MOVEF ,G:VDU225:AS=GETS 

1668 MOVEF ,G:VDU225 

1670 IF AS="Z" THEN F=F-&41:X%=X3-&20 

1686 IF AS="X" THEN F=F+&41:X%=X%+&2Ø 

1690 IF AS=":" THEN G=G+&20:X%=X%-&280 

1700 IF AS="/" THEN G=G-&20:X%=X3+&280 

1710 IFF<-&21 THEN F=&4BA:X%=X%+&280 

1720 IFF>&4C5 THEN F=-&19:X%=X%-&280 

1738 IFG>&41Ø THEN G=&3Ø:X%=X%+&5ØØØ 

1740 IFG<&lA THEN G=&41Ø:X%=X%-&50ØØ 

1758 IF AS="Q" AND move=TRUE THEN PROCg 
rid:quit=TRUE: ENDPROC 

1768 UNTIL A$=" " OR AS="C" 

1770 IF A$="C" AND move=TRUE THEN GCOL3 
, 7:MOVE575 , 30: PRINT"Move" :MOVEG , 30: GCOL3 
, 6: PRINT "C-Change" :MOVE9@@ , 30: PRINT "Q-Qu 
it": PROCcoord: GOTO] 220 

1780 *FX15,1 

1798 ENDPROC 

1800 : 

1818 DEFPROCchoice 

1828 GCOL3,6:PROC1s:AS=GET$:PROC1s 

1830 IF AS="S" THEN PROCsave 

1840 IF AS="L" THEN PROCload 

1858 ENDPROC 

1860 : 

1878 DEFPROCsave 

1888 PROCfilename 

1898 CLS="SAVE "+fnS+" 3000 8000" 

1988 PROCoscli (CL$) 

191Ø MOVE4ØØ,3Ø:PRINT"Quit (Y/N)?" 

192Ø AS=GETS:IF AS="N" THEN MOVE4ØØ,3Ø: 
PRINT "Quit (Y/N) ?":PROCloop 

193Ø ENDPROC 

194Ø : 

1958 DEFPROC load 

1968 PROCfilename 

1978 CL$="LOAD "+fn$:PROCoscli (CL$) 

1988 PROCloop 

1998 ENDPROC 

2088 : 

2618 DEFPROCmessage 

2828 GCOL3,7:MOVE575,3Ø:PRINT"Move" 

2938 GCOL3,6:MOVEØ,3Ø: PRINT "C-Change" 

på Ww 14" 
2Ø4Ø MOVE9ØØ,3Ø:PRINT"Q-Quit — 61 
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NEW CHESS 
GRANDMASTER 
FOR THE BEEB? 


BBC Soft's White Knight has been the 
undisputed chess champion on the 
Beeb. Now a new challenger has 
arrived on the scene in the form of 
Colossus Chess 4.0. Bernard Hill, no 
mean player himself, has been refer- 
eeing the match. 


Product: Colossus 4 Chess 
CDS Software Ltd 
Silver House, Silver Street, 
Doncaster DN1 1HL. 
Tel. (0302) 21134 


Price : £14.95 (disc), £9.95 (cassette) 
inc VAT and p&p. 
Any new Chess progran for the Beeb 


written by Martin Bryant must be worth 
looking at. In Computer Chess circles, 
Martin's nine years' experience makes him 
quite an old timer, but unlike many chess 
programmers he has put his efforts into 
the home computer market. Previous 
versions of Colossus are already well 
known to owners of other computers, and 
Martin's previous BBC programs were White 
Knight Mk 11 and 12 published by BBC Soft. 
Colossus is available on tape or disc (40 
track or 8Ø track - state which) for the 
Electron, BBC, B+ and Master. A Master 
Compact version will be available shortly, 
and disc versions contain programs for 
Model B and an expanded version for B+ or 
Master. The existence of both versions on 
one disc means you have no problems if you 
upgrade to a Master! 


Just browsing through the manual 
shows the similarity to White Knight, 
particularly that program's excellent 
command interface. There is no need to go 
to other menu screens to perform functions 
such as saving or reloading games, 
changing levels, sides or turning the 
board round. Even the colours used for the 
display, or the volume of the beep can be 
changed! It is extremely easy to set up 
positions for analysis or problem solving, 
and the current elapsed time for each 
player is shown at the right of the 
playing board. Sadly, I think the screen 
layout is inferior to that of the older 


12 


= MS GS UG! 


program: your 
move and elapsed time is shown opnosite 
the black pieces and vice-versa. 


if you are playing white, 


The manual indicates that the program 
version which loads in to a Model B or 
Electron is different to that for the 
Master or B+, and the board display shows 
this very clearly. The 32k program 
displays less than a full mode 4 screen 
as the program loads right up to %6Ø4Ø! On 
the 64k models mode 132 is used of course, 
which enables a 3-dimensional view of the 
board and pieces to be displayed. This is 
not the only difference, however, as a 
great many features of the larger program 
are omitted in the smaller. Even worse, 
some features present in White Knight are 
missing in 32k Colossus. In particular, 
the inability of the 32k program to save 
and reload games is a major drawback, and 
you should consider carefully if you are a 
Model B or Electron owner, as many 
features are unavailable. 


that 3D screen. After a few 
minutes, the novelty wears off, and with 
relief I used the 2D-screen option to 
revert to my familiar White Knight-style 
pieces. The problem is not with my 
monitor, but with the mode 132 graphics. 
Perhans mode 128 would handle it better 
but then the text would be too small for 
TV sets. The other annoying thing about 
the 3D graphics is that it takes almost 
1Ø seconds to draw the initial board, 
compared to under 1.5 seconds for the 2D 


Firstly, 


board. So no bonus points for this 
fashionable feature.! 
On the 64k version are the on-screen 


features which made White Knight such an 
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interesting program to play even when you 
are waiting for it to move. The line of 
play the computer considers best so far is 
shown (first move only with the 32k 
program), but even more interestingly, the 
large program shows what moves are 
currently being considered. This is quite 
an insight into how the program is per- 
forming its search, and quite a shock to 
see that this section of the display con- 
tinues to flicker and change when you are 
thinking. It really is thinking in your 
time! The annoying thing, however, from a 
practical player's viewpoint, is that 
there seems to be no way to turn off this 
"hint". There is an option to vary the 
amount of information displayed here, and 
contrary to the implication of the manual 
I observe that the playing speed is 4-5 
times slower when showing the full list. 


<C> 19 
Airian 
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Since one of White Knight's weaknesses 


had been a lack of stored opening 
sequences, I was pleased to find that the 
64k version has a small (3ØØØ move) book 
of opening moves available. In practice, 
however, this is a little disappointing 
and does not seem to be very varied. For 
instance, for the first move it chooses in 
about equal proportion between e2e4, d2d4, 
and blc3; with a rare try at c2c4. In 
reply to e2e4 (again in approximately 
equal proportion) we have e7e5; e7e6; 
g8£6; b8c6; d7d5; with a rare c7c5. While 
I respect Martin Bryant's quoted viewpoint 
that a careful choice of opening 
repertoire is necessary to give the best 
computer play, I feel that most players 
will want a more varied selection to 
practise against. At least pressing the U 
key will make the computer select another 
instead of the rare blc3. 
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The White Knight owner would find 
himself familiar with the take-back (and 
forward) facility; changing of time-clock; 
legal move demonstration; play-self and 


supervisor modes, and invisible pieces 
(now expanded to leave one side still 
visible). New options are available to 
watch a revlay of your defeat (?), and 


have the computer recant 
and choose a different move. More 
importantly, the modes-of-play options 
have been expanded: options are still 
available to set firm time limits (e.g. 40 
moves in 2 hours); set average time limits 
(e.g. 1 move per 3 minutes); or match 
your play rate, but an 'infinite' mode has 
been added, and, more excitingly, a 
limited-time mode (e.g. all the moves in 
1@ minutes each). If you use the latter I 
advise you to set the computer's clock 
forward slightly to compensate for your 
move entry time - and beware, Colossus 
claims a win if you run out of time! Also 
new is the expansion of the mate-finding 
mode to include self-mates and help-mates, 
while disc versions also come with files 
of 34 famous computer games and 19 prob- 
lems, but only 64k users can load them! , 


(large version) 


But what of the most important asnect - 
the standard of play? The manual claims a 
grading of 1850 ELO/156 BCF and that it 
beats White Knight Mkl2 75% (Mkll 93%) of 
the time. It would need some weeks to 
evaluate the all-round strength play of a 
program but nothing I have seen leads me 
to disbelieve the above. The endgame 
algorithms have also been improved and I 
can confirm the manual's claim to be able 
to win the bishoptknight mate but on the 
1Ø-second move level it couldn't win the 
King+Pawn v King ending against me. 


So is it a good buy? For the Master or 
B+ owner I must give a resounding "Yes" 
and endorse the title screen's claim to be 
the best chess program for home computers, 
and at a remarkably low price for such a 
major piece of software design. But for 
the Model B owner only a "Possibly". If 
you are prepared to play without a 
game-save option and don't want to watch 
the analysis, then the better play and 
limited-time modes will make your purchase 
worthwhile. And of course, it will still 
work (and better) if you do later upgrade 
to the Master or Bt. 
D 
B 
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Mark Sealey, a teacher involved in 
many aspects of computers in schools, 
introduces the first of our bi-monthly 
reports on the education scene with 
an appraisal of the BBC’s Domesday 
Project, and a look at the Grass 
Database from Newman College. 


Introduction 


Last month's magazine contained the 
first of our regular bi-monthly sections 
on communications. This issue sees the 
start of the other special area to which 
BEEBUG will be devoting more time every 
other month: BEEBUG Education will cover 
practical computing matters relevant to 
all areas of school and college use. We 
shall also deal with home study, distance 
learning and topics relevant, for example, 
to the Open University. 


Ideas for future pages include Econet, 
the growing add-ons and extensions for use 


with LOGO, the use of Acorn family 
computers in Special Education, as well as 
some more interesting specialist 
developments in both the primary and 


secondary classroom. 


BEEBUG Education will cater 
Master and Master Compact as well 
BBC B, B+ and Electron. If you are in any 
way involved yourself with children or 
students, in learning, teaching or educat- 
ion, then BEEBUG Education will have some- 
thing for you. Indeed, please write to 
BEEBUG's editorial address and let us know 
of any topic of particular interest to 


for the 
as the 


you. News and developments in the 
educational computing field will be 
14 


featured as well as reviews of particular- 
ly interesting items of software. 


This month sees an excellent database 
package called 'Grass' from Newman College 
under scrutiny. And we look at the much 
heralded AIV - Acorn and Philips' Advanced 
Interactive Video linked to last year's 
celebration of the 9ØØth anniversary of 
the completion of the Domesday Book; some 
one million people in Britain took part in 
compiling the data that is now part of 
this twentieth century equivalent. Its 
scope is breathtaking; it has been 
estimated that a good reader working 18 
hours a day would take seven years to read 
all the material contained on the discs. 
It is unique in the world in an area - 
interactive video - that many believe will 
be the next major development of computer 
use in education. And there is the Master 
controlling it all. 


The Domesday Project 


System : Acorn Master AIV micro, 
BBC LaserVision Disc Player 
14” Colour Monitor, Domesday 
Disc Package, and User Guide 
Acorn Computers Ltd 
Cambridge Techno Park, 

645 Newmarket Road, 
Cambridge CM5 8PD 

Tel. (0223) 214411 

£3990 exc VAT (list price) 
£2995 exc VAT (to education) 
£1495 exc VAT (one per LEA) 


Supplier: 


Price : 


The Master is in at the start not just 
of the Domesday Discs but many more that 
can be used with this same equipment: a 
BBC ecology game disc, for instance, is 
already being completed. 


The Domesday project equipment under 
consideration here is the outcome of 
collaboration between Acorn, BBC Enter- 
prises and Philips. Funding has come from 
the last two in addition to the Department 
of Trade and Industry. It would be nice - 
given the scope of what's on offer - to 
think that the impact will be similar to 
the original Micros in Schools scheme. Yet 
nobody really expects that it will. 


THE EQUIPMENT 


The chief reason is the price. Although 


there now exists an offer similar to the 
half-price 'Micros in Schools' scheme, 
this is limited to one per LEA only, and 
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the cost is still a minimum of nearly 
£2,ØØØ. This includes a Master with Turbo 
Co-Processor and an extra Small Computer 
Systems Interface (SCSI) which - together 
with the new Video Filing System ROM - 
allows interfacing to the BBC/Philips 415 
LaserVision disc player. It is also 
possible to upgrade an existing Master to 
the Master AIV. 


A Trackerball is used to 
for display. When buying the system 
complete, a Philips 14" medium resolution 
monitor is supplied. This (M8553 model 
allows more control of picture quality 
than is usual with monitors solely for 
computer use. This is because the monitor 
displays more than just digital computer 
output. The 'software' of the system - 


select items 


containing up to 324 Megabytes of digital 
data as well as over 58,0008 analogue video 
frames - is contained on two 12" LV discs. 
Each is double-sided so there is the small 
disadvantage of having to turn over the 


Community disc to change from North to 
South! Analogue images are combined 
physically with the familiar BBC character 
fonts to superimpose, say, captions on one 
of the 22,088 photographs. This is the 
achievement of this integrated system. 


The content of these discs will 
disappoint no-one. For comprehensiveness 
it really is second to nothing of its kind 
in the World! Most of it has been 
specially commissioned by experts or is of 
government, public or (semi) official 
origin. Yet the depth and breadth of the 
subject areas that I looked at leaves 
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databases like Prestel and Knowledge Index 
standing. 


The information is catalogued so that 
it is accessible with startling ease ina 
variety of ways; I found the trackerball 
easier to use in this context than a 
mouse, though the latter can be attached 
instead, and eventually a touchscreen. 
Data is downloaded at a rate of 15Ø Kbps. 
So the average time to explore any one 
geographical area or set of information 
really is only a few seconds. 


In order to retrieve or browse, you can 
either zoom in froma large scale map or 
from a data index, and select from a menu 
displayed continually at the foot of the 
screen. Or you can search with alarming 
speed on a variety of criteria. Exemplary 
user-friendliness. 


Not only are whole "journeys" based on 
a particular geographical area possible, 
but also the option of remodelling data 
from the huge array of statistics 
(cultural, population, economic, environ- 
mental and social etc) from the National 
disc. The Master can then overlay these 
back onto a selected map or town. I 
understand that the BBC plans to bring out 
software that will allow the user to 
download this data onto a standard disc. 


WHO WILL USE IT? 


The system will obviously appeal to the 
one million people (including the pupils 
in 14,808 schools) who helped to gather 
the data two years ago. It will appeal to 
anyone interested in laser technology and 
interactive video; libraries will want it, 
tourist offices and agencies, not to 
mention commerce, land and estate agents 
and industry. It is for anyone concerned 
to have a reliable comprehensive elec- 
tronic encyclopaedia that is extremely 
easy and exciting to use. 


CONCLUSION 

My major misgiving has to remain the 
inaccessibility. If a resource like this - 
appropriate to so many sectors of 
education and beyond - is centralised in 
the larger colleges and university 
departments and computer centres (which 
its cost may well determine), many 
would-be users of this excellent resource 
will be left in frustration. 


Product : Grass Database 


Supplier: Newman College 
Bartley Green, 
Birmingham B32 3NT. 
Tel. 021-476 1181 

Price : £25.00 plus VAT 
(bulk licences available) 

For Primary and many Secondary school 
teachers news of the software reviewed 
this month will be very welcome. Newman 
College's Information handling package 
Grass (Graphics Searching and Sorting) 


fills a comparatively wide yet precise 
gap in the market. 


Grass is essentially a database package 
written in Basic that has all the usual 
data entry, retrieval, sort and brint 
facilities, yet one that is extremely easy 
to use. Selection of options is of the 
position-cursor and space-bar-to-select 
kind. Running on Acorn DFS version Ø.9 as 
well as 1.2, it will also work with Econet 
Level 2 with versions 3.34 or 3.6 of the 
Network Filing System. It is happier 
without the second processor, but files 


can be converted to and from Quest format. 


Press 34 et o eu to column. 
i PME bind Fee ppse tots 
The distribution disc comes with five 
sample files and the instructions for 
creating and editing your own are very 
clear and easy to follow. There are 


inevitable limitations: it is not possible 
to use a separate DATA disc as such, and 
consequently with 48 track single-sided 
discs, space will be an important factor. 
The maximum number of fields is 18. The 
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GRASS query File: Voloano 


: Indonesia 
Ecuador 
C: Guatemala 
: USSR 
: Congo 
t Mexico 
s Others 


"Press PS i ati T a 


maximum number of records is 256 - just 
106 if all 18 fields are used. It is 
impossible to add a field at a later date, 
as you may using ViewStore, say. 


Fro this it ought to be obvious that 


for advanced or sophisticated work, Grass 
is not, perhaps, the best possible 
package. I have used it successfully with 
11 year olds; as an introduction to 


information handling on the computer it 
has much to recommend it. Top of the list 
must be ease and reliability of use. Speed 
in operations is also a plus. 


Where it really scores, though, is on 
the graphics side. Once data is entered as 


desired, it can be displayed visually in a 
variety of ways (see illustrations). Te; 
for example, you had a database on aero- 


planes as a follow-up to some visit or 
part of a project, you could display wing- 
spans, ages or maximum speeds in a whole 
host of formats: histogram, cumulative, 
count or scatter graph, pie charts and the 
like. Averages and medians can also be 
dealt with. In selecting and using these 
displays, Grass will prompt with messages 
both as to the types allowed for any one 
field and when the data is either too 
little or too much for meaningful results. 
These can then be dumped to a printer - 
including a Network printer. Parameters 
are set up via a "Teacher's Page"! 


For the teacher who wants to introduce 
his/her pupils to the basic use of a 
computer in manipulating data safely and 


with immediate powers of interpretation 
through graphic display Grass is very 
strongly recommended. D 
B 
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MULTI-CHARACTER 


PRINTER DRIVER 


FOR WHEN 


Claus Alsted has devised a printer 
driver for View that not only copes 
with all the usual fonts, but allows 
graphics and foreign language 
characters to be printed too. 


View has always been one of the two 
most popular word processors for the BBC 
micro, along with Wordwise (and Wordwise 
Plus). As View is now supplied by Acorn as 
standard with the Master 128 and Compact 
computers, the number of View users looks 
set to grow even further. 


One of the advantages (sometimes a 
disadvantage) of View is that any text is 
prepared largely independent of the 
printer used to produce hard copy output. 
Provided only that a simple text 
layout/style is required, there are no 
problems, but if you wish to make full use 
of your printer's capabilities (different 
sizes and styles of text, graphics 
characters etc) then a View ‘printer 
driver' is required. This translates your 
printing specifications into the correct 
control codes required by your printer. 
Acorn supply (at a price) a printer driver 
package that can be tailored to most 
printers, and BEEBUG published a useful 
printer driver generator in Vol.4 No.3. 


Even so, conventional printer drivers 
seldom give access to all of a printer's 
facilities, and have other limitations. 


This is mostly because all the required 
code sequences have to be stored as part 
of the printer driver itself. 


The printer driver program listed here 
is quite different. It is itself largely 
independent of which printer it is used 
with, and gives access to virtually all 
the facilities that your printer can 
provide. These include not only the normal 
text features like condensed, underlined, 


double height, etc, but also the use of 
graphics characters (if provided by your 
printer) and foreign language character 


sets as well. 
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INSTALLING THE PRINTER DRIVER 


Type in the program as listed (the 
spaces between the line number and the 
following assembly language instruction 
may be omitted for convenience) and save 
to cassette or disc for security. Now run 
the program to assemble the printer driver 
and follow the screen instructions to save 
the printer driver with the name of your 
choice. From within View, the printer 
driver can be loaded at any time with the 
PRINTER command (see the various View 
manuals for more information). 


The printer driver program was written 
for a Shinwa CP8Ø printer, compatible with 
the Epson MX series of printers. All 
Escape sequences use ASCII 155 (27 + 128) 
for the ESC character and this is set in 
the program at line 1539. If your printer 
uses ASCII 27 in Escape sequences then 
replace 155 by 27 at this point, and 
wherever else it occurs. 


The only other  printer-specific 
settings are shown in the following table 
together with the line number in which 
they are set. If your printer uses a 


different code, then change the value in 
the program to that used by your printer. 
—> 


A comprehensive demonstration 
examples of the 
characters) is contained on page 29. 


This is described later in the text. 


(with 


use of highlight 


1Ø REM Program DRIVER 

2Ø REM Version B1.4 

3Ø REM Author Claus Alsted 

40 REM BEEBUG March 1987 

50 REM Program subject to copyright 

60 : 

1ØØ ON ERROR ON ERROR OFF:IF ERR<>17 R 
EPORT: PRINT" at line ";ERL ELSE PRINT':E 
ND 

118 code = &3FØØ:REM assembly location 

128 PROCassemble 

130 PRINT'"End of code: &"; drvfinito; 

140 IF drvfinito<&5ØØ PRINT" OK "' ELS 
E PRINT" Too long!"':END 

156 INPUT'"Printer name: "PS 

160 saveSE"SAVE "+PS+" "+STRS~codet" " 
+STRS™ (code+255) +0HR$32+"4ØØ" 

170 PRINT'"Ready to *"save$" (Y/N) " 

180 REPEAT:G=GET: UNTIL G=89 OR G=78:IF 
G=89 OSCLI save$ 

198 END 

200 : 
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ESC O 1268 Skip-over-perf 
cancel 

ESC E/F 189Ø Emphasize 
on/off 

ESC - 1968 Underscore 
on/off 

ESC Å 2650 Printer init- 
ialisation 


USING THE PRINTER DRIVER 

View allows the use of 
two ‘highlight’ markers. 
These are shown on the 
screen as aE Say ta! 
(inverted in later versions 
of View), and produced 
using Shift-f4 and Shift-f5 
in edit mode. In addition, 
the meaning of either of 
these two highlights can be 
changed using the embedded 
command 'HT'. The default 
highlights are underscored 
(=) and emphasized (*) 
text. With the printer 
driver listed, the two 
highlight characters have 
the following meanings. 


HT h 128 underscored text 

HT h 129 emphasized text 

HT h 138 ASCII multi-toggle 

HT h 131 ASCII solo-toggle 

HT h 155 Escape sequence 
(or HT h 27) 


"h' denotes either of the 
two highlight characters 
vogn F 1555 
command allows all Escape 
sequences, for example, to 
be given as embedded com- 
mands prefixed with '-' 
(Shift-f4). "HT * 138" or 
ver oF 1S") allows ns 
(Shift-f5) to act as a 
toggle, either on the next 
character only (single 
toggle) or on all the 
following characters until 


reset with Le (multi- 
toggle). Of course, either 
highlight, '-' or '*', can 


be defined as required. The 
toggle control provides a 
means of generating ASCII 
codes that cannot otherwise 
be entered directly from 
the keyboard: 
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DEFPROCassemble 


REM System addresses: 

osasci=&FFE3: oswrch=&FFEE: osbyte=&FFF4 

FOR pass=4 TO 7 STEP 3 

O%=code: P%=&4Ø0:REM assemble at code, RUN at &4ØØ 


[OPT pass 
«Start 
JMP print 
.prton 
JMP on 
»Prtoff 
JMP off 
„hmi 
NOP: NOP: NOP 
.option 
RTS 
on 
LDA #0 
STA multiflg + 1 
STA singleflg + 1 
STA uscore + 1 
LDA #ASC"F" 
STA bold + 1 
LDA #2 
JSR oswrch 
JSR prtreset 
LDA ASC"O" 
JMP prtesc 


JSR prtreset 


JMP oswrch 


LDA #0 

BPL nthilite 

CMP #129 
+ht128 

BCC underscore 
»ht129 

BEQ emphasize 

CMP #131 
«ht13Ø 

BCC multiflg 

BNE ht155 
+ht131 

LDX #1 

STX singleflg + 1 
+ht155 

CMP #155 

BEQ printit 

BNE restore 
-nthilite 

LDX multiflg + 1 

BNE toggle 
-Singleflg 


Njump table 13 B 


N 29 B 
\reset flags & toggles 


Nall toggles reset 
Nprinter ON 


\reset orinter 
Nzero skip over perforation 
NESC "O" to printer 


N 8R 
\reset printer 

\printer OFF 

\ 77 B 


Nsave registers 


\dummy value 
MA < 128 


s 
" 
ad 
wW 
Q 


= 
w 
pe 


set singleflg ON 
‘HT - 155! 


NA = 155, ESC on CP8Ø 
Nignore everything else ü 


\toggle if multiflg <> Ø (= 1) 
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SUE PSE ee NE ES JE LE EE PTE LTS SEERE: 


1680 LDX #6 \singleflg initially OFF 


1618 BEQ printit \no toggle if singleflg=Ø (OFF) ASCII values toggled into 
1620 DEX \singleflg was ON - now reset 
1630 STX singleflg + 1 \singleflg and 32 ne 32 = 63 
1640 STX multiflg + 1 \multiflg EEE 128 = 1159 
1658 .toggle (high control) 
1660 CMP #64 961= 127 g- 31 
1670 BCC printit VA < 64 - print as is (low control) 
1680 CMP #96 
1699 = AND #&1F \mask lower 5 bits (Ø - 31) For example, enlarged or 
17ØØ BCS loctrl \A>=96 - print as low Ctrl char wide characters are pro- 
1719 ORA 4880 \set. MSB - hi Ctrl char duced by the Epson FX8Ø 
1728 .printit printer with ESC W followed 
17308 JSR osasci \print as ordinary char by ASCII 1 or 48. This can 
174Ø .restore be specified with -W*a (‘a' 
1750 PLA: TAY has an ASCII value of 97 
1760 PLA: TAX which is toggled by '*' to 
1770 PLA '1'), and switched off with 
1780 RTS -w*' (which is ESC WØ). 
1799 .loctrl Further examples of the 
1808 JSR prtonly \low Ctrl chars to printer only use of the extended high- 
1818 BPL restore NJMPrel lights are shown in the 
1828 .multiflg \command HT * 130 9B accompanying illustration. 
1830 LDA #0 \initially OFF Note that "'-" and ~=! 
1840 EOR #1 \toggle Ø/1 indicate the use of 
1850 STA multiflg + 1 \save new value Shift-f4 and Shift-f5 
1869 RBPL restore \oMPrel except for ‘underscore on' 
1870 .emphasize NHT* 128 which is Shift-f4 followed 
1880 .bold by "--', A View file 
1890 LDA #ASC"E" \initially OFF containing notes on the 
1988 EOR #3 Ntoggle "E"/"p" extended highlights, the 
1919. STA bold + 1 \save new value examples and a keystrip for 
i 1928 .emph F the CP8Ø printer is includ- 
? 1930 ` JSR prtesc \print ESC, ASC (Acc) ed on the magazine 
i 1949 BPL restore \JMPrel cassette/disc along with 
å 1959 .underscore \HT- 178 the printer driver program. 
‘i 1960 LDA HASC"-" The keystrip can be easily 
i 1978 JSR prtesc N print ESC "=" edited to suit your own 
i 1988 .uscore printer. 
1999 LDA #0 \initially OFF 
2000 EOR #1 \toggle 1/0 Although the technique 
2010 STA uscore + 1 \save new value may sound complex, it soon 
2020 JSR prtonly becomes relatively easy in 
2030 BPL restore \JMPrel practice, though at the 
2040 .prtreset \reset printer 19 B cost of losing a correctly 
2050 LDA #ASC"@" formatted text screen, 
2068 .ortesc N send ESC & CHR$ (Acc) to usually one of the big 
2070 PHA pluses for View. You will, 
2080 LDA #27 of course, need to check 
2090 JSR prtonly the manual for your own 
2100 PLA printer carefully, as the 
2119 .prtonly \printer only effects produced are deter- 
2120 PHA mined by that device and 
2138 LDA #1 not by the printer driver 
2140 JSR oswrch program. With care, and by 
Å 2159 PLA experimenting, you should 
å 216Ø JMP oswrch now be able to control all 
| 2170 .drvfinito the features of your 
2188 ] printer from within View. 


219Ø NEXT: ENDPROC 
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printout 


The 


below shows a variety of fonts and 


sizes 


Driver with a Shinwa 


obtained using the Printer 


obtained with the printer 


CP8Ø printer, and shows graphics characters and 


foreign language character sets. 


driver and an Epson FX8Ø printer. 


ESE hune ton 
UNDERSCORE 
EMPHASIZED 
DOUBLE. STRIKE 
bl I DE 


S3 LIF ES REINT FR I FPT 


SUBSORI FT 


CEEL aie Gavan 
lag I DE 
CONDENSED 

BEE 


NOT UNDERSCORED 


NOT EMPHASIZED 
SINGLE STRIKE 
NORMAL. FITCH 
NORMAL HEIGHT 
NORMAL. HEIGHT 


NORMAL FITCH 
NORMAL FITCH 


*c ¥d ke Xf *p ¥q *s Ku ¥v Hu ¥x Hy ¥z 


ti GL Gå 


*C XD XE HF EP HA IFS XU KV EW FX KY HZ 


# eder 


Al 
on 


US ASCII 
French 
German 
English 
Danish 
Swedish 
Italian 
Spanish 
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Fling System 
Di 


iN 


Me--77E 


New OS Calls 
Uncovered 


Following last month's list of the 
Beeb's OS vectors, Claus Alsted 
reveals some useful but undocu- 
mented OS routines in the Model B, 
and Roger Cullis supplies the equiva- 
lents for the B+, Master and Compact. 


Many peonle will be familiar with the 
"official" OS machine code routines and 
their entry points - OSWRCH, OSBYTE, 
OSCLI, OSRDCH etc. But the operating 
system has other routines which are just 
as easy to utilise. The only drawback is 
that their addresses change with each new 
release of the operating system. But in 
many cases this disadvantage is offset by 


the sheer convenience of the routines 
themselves. 
In the accompanying table we present 


three groups of routines, accessed through 
six possible entry points; and these are 
given for the four most common machine 


ae 


&FA48 


OSWRMS | &FA4A &BECF | &BE2F 


OSESC &F9AB| &F9B3 
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&BCCC| Print the contents of 
Accumulator in hex 


OSWRHXN | &F 983] &F98C | &BD75 | &BCD5 | Print contents of LS 
nibble of Acc in hex 


Print the following 
embedded message of 
any length, 

ated by zero 


OSACK &F9A6 | &F9AE | &B285 | &B1DB| Acknowledge Escape 
(*FX126) xa 


ESC error message - 
error code 17 


configurations. Each entry point has been 
christened with a suggested label for 
reference purposes. And at the end of the 
article we give one example of the extreme 
economy offered by the routines in writing 
a debugging aid. 


DISPLAY IN HEX FORMAT 


This useful group of entry points is 
concerned with outputting hex values in 
ASCII form. We will start with OSWRHX (OS 
WRite HeX) which prints the contents of 
the accumulator in hex notation. Thus the 
code: 


LDA #&FE: JSR OSWRHX 


will print "FE" on the screen. Owners of a 
model B or B+ may also use OSWRHXS. This 
has the same effect as OSWRHX except that 
a leading space is also inserted. Thus: 


LDA #&FE: JSR OSWRHXS 


will print " FE" on a model B or B+. For 
the sake of comparison, we should mention 
that OSWRCH writes the contents of the 
accumulator directly to the screen as if 
it contained an ASCII code. Thus, calling 
it with &FE in the accumulator would send 
code 254 to the screen. 


A undefined 


Y<>0 on entry 
Y preserved 
A, X undefined 


none 


termin- 


then. 
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The third entry point of this group, 
which we have called OSWRHXN (OS WRite HeX 


of least significant Nibble), will print 
in hexadecimal notation the value of the 
least significant nibble of the 
accumulator. Thus: 

LDA f&FE: JSR OSWRHXN 
will print "E" on the screen. 


WRITE ASCII MESSAGE 

The routine which we have called 
OSWRMS (OS WRite MeSsage) has a similar 
effect to the PRINT statement in Rasic. It 
will handle messages of any length, which 
may even contain carriage returns. It will 
in fact output any byte value except zero, 
which is used as a terminator. If you wish 
to send a VDU sequence which contains a 
zero byte, you can sometimes replace the 
zero with 2”n. For example VDU22,8 has the 
same effect as VDU22,9. Note that the 
message should immediately follow the JSR 
to OSWRMS, and that it should be called 
with a non-zero value in the Y register: 


LDY #&FF Ny Og 

JSR OSWRMS 

EQUS "This is the message ..." 
EQUB @ 

ares, \ rest of program 


The effect of the above will be to print 
"This is the message ..." and then to 
continue the program. 


HANDLING ESCAPE 


The third group of calls (OSACK and 
OSESC) handles Escape conditions from 
machine code. The most obvious use for 


this is after reading keyboard input with 
OSRDCH: 
JSR OSRDCH \ read input 
CMP #27 \ was it Escape? 
BNE ntesc \ no - skin 
JMP OSACK \ yes - acknowledge and 
print error message 
then quit 
« Ntesc 
ee \ rest of program 


APPLICATION: A REGISTER DISPLAY 

When debugging machine code programs 
it is often essential to check the 
contents of the major registers from time 
to time. If you have no machine code 
toolkit, the following simple routine will 
probably be very handy. It prints out the 
contents of the P, A, X and Y registers in 
hex, making extensive use of OSWRHX. 


The register display routine is listed 
from line 2ØØ to 26Ø. To show how it 
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works, it is accompanied by a short piece 
of code to test it out; and you will 
notice that  INKEY (-256) is used to 


determine which computer system you are 
using, and to correct the address of 
OSWRHX accordingly. 


When using the routine to debug your 
own code, include lines 210 to 260 
somewhere within your machine code, having 
already supplied the correct address of 
OSWRHX. Then, each time that you need to 
know the contents of the Accumulator and 
the X, Y and Status registers, just 
include the following statement: 

JSR helo 


The result is printed in hex in the order 
P, A, X, Y; and the routine preserves all 
registers intact. Incidentally, model B 
and B+ users can make the routine even 
more concise if they wish by inserting the 
line: 
wr ite=OSWRHXS 

early in the program, after first defining 
OSWRHXS, and deleting lines 250 and 260. 


We hore in future issues of the 
magazine to include further OS routine 
entry voints. 


10 REM P, A, X & Y Register Display 
26 REM Using OSWRHX ver 7 

30 MODE7 

40 OSNEWL=&FFE7:OSASCI=&FFE3 

58 DIM Rb 100 

68 A=INKEY (-256) 

70 IF A=-1 OSWRHX=&F97A:REM B 

80 IF A=251 OSWRHX=&F983:REM Bt 

98 IF A=253 OSWRHX=&BD6C:REM MASTER 
160 IF A=245 OSWRHX=&BCCC:REM COMPACT 
11Ø FOR I=Ø TO 3 STEP 3 
12Ø P%=R%: [:OPT I 
13Ø .entry 
14Ø LDX $Ø:LDY #8FF:LDA #&AA 
15Ø JSR help 
168 LDX f&FF:LDY #0:LDA #&11 
176 JSR help 
180 RTS 


260 N Register Display Routine 

210 „help: PHP: PHA: PHA: PHP: PLA 

226 JSR write:PLA:JSR write:TXA 

236 JSR write:TYA:JSR write 

246 JSR OSNEWL: PLA:PLP:RTS 

258 .write:JSR OSWRHX:LDA #&29 

269 JSR OSASCI:RTS 

210 3 

280 ]:NEXT 

296 CALL entry B 


Beebug March 1987 


mr 


The ADE+ 
Assembler 
System 


ADE+ is a complete system for the 
machine code programmer. Geoff 
Bains explains what the package pro- 
vides, and gives his own assessment. 


Product: ADE+ 


Supplier: System Software 
12 Collegiate Crescent, 
Sheffield $10 2BA 
(0742) 682321 
Prices : £49.55 — Disc (SWR image) 
£54.15 - ROM 
£57.60 — Master cartridge 
System's ADE+ is more than just a 
machine code assembler. It is a complete 


piece of system software in its own right. 


ADE+ consists of 32K of ROM image (in 
one form or another, depending on your 
choice of format) and a utility disc. The 
program is in four parts - a ‘memory 
management unit, text editor, assembler, 
and a debugger. The debugger is System's 
old SPY package offering basic machine 
code monitor facilities. 


Of the rest of the software the 
overall control is with the memory 
management unit (MMU). It is this that is 
called with the inevitable *ADE command. 


The MMU sorts out the memory used by 
ADE+. The MMU also runs a continuous real 
time clock (using the hardware clock on a 
Master) which appears as the prompt for 


the MMU command level. Some of the 
commands available are simply to call 
other sections of the system - EDIT calls 


the editor, DEBUG summons the debugger, 
and ASM sets the assembler going. Other 
MMU commands deal with setting up the 
micro for best use with ADE+. 


All the memory available is split into 


separate sections - workspace, and input, 
output and printer buffers. This memory 
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can come from main RAM, sideways RAM and 


second processor RAM. If shadow RAM 
(either Acorn or Aries) is available (and 
enabled) then this is taken into account. 


The workspace is usually the main vart 
of the available memory and is used 
(reasonably enough) for all the workings 
of the various ADE+ sections. The input 
buffer is used for all data entering the 
ADE+ system. This includes, for example, 
an assembler program coming in from disc 
for assembly. The output buffer would in 
this case form the buffer for the 
assembled code to accumulate before output 
to a disc file. 


The printer buffer is made up of all 
available sideways RAM that has not been 
protected (because it, say, contains a 
sideways ROM image). ADE+ contains a print 
spooler that operates as a background task 
allowing much faster use of the system 
when printing. This uses the printer 
buffer for temporary store. 


The buffers default to zero size on a 
single processor system. However, they can 
be given sizes by the user with MMU 
commands or they will each grab 1K of RAM 
from the workspace when needed if they are 
not allocated a specific size. The larger 
a buffer is, the quicker connected 
operations will be. 


The next section of the ADE+ system a 
user will meet is the editor. ADE+ can use 
any editor that produces ASCII output 
without embedded codes. View is especially 
catered for as the system can recognise 
its rulers. View can also be recognised 
for material to be passed automatically to 
it for editing. However, details on how to 
do this are only Contained in the 
"Advanced' ADE+ guide. 


If you have no favourite editor one is 
provided in the ADE+ ROMs. System says 
this is a 'simple' editor. However, it is 
quite complex enough for most purposes. 
The editor operates in the normal way. It 
has a command mode for loading and saving 
text and other operating commands (such as 
calling the assembler) and an editing 
mode. In the editing mode the cursor keys 
allow you to move around the text and 
insert or overwrite any corrections or 
additions. 
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A block of text can be defined with 
markers and then moved, copied or deleted 
with the function keys. Individual lines 
or characters can deleted or blank ones 
inserted. A search facility is also 
provided for moving the cursor to 
occurrences of a specified string. 

The editor provides one function 
specifically for editing an assembler 
program: an assembler label can be 
searched for. Pressing £2 with the cursor 
on a line with a label reference moves the 
cursor to the line containing the label 
itself. This is an extremely useful 
feature and saves much frustrating 
searching through a program, especially if 
its an old one, or someone else's. 


ADE+ accepts assembler code in the 
usual format of lines made up of four 
fields - label, opcode, operand and then 
comment. Each field must be separated with 
one or more spaces and/or a tab character. 
Tabs are expanded to positions every eight 
characters although this can be altered 
with a View format ruler. The whole 
operation of the editor is very much like 
View itself, and it is obvious that 
Acorn's program provided System with the 
model. 


Existing BBC Basic assembler programs 
can also be loaded into the editor after 
conversion with a utility provided on 
disc. Once a program has been edited it is 
assembled. This can be done either from 
within the editor's command mode or from 
the MMU. Either way, the ADE+ assembler is 
extremely fast. System claims ADE+ is 
faster than all rival products. This 
certainly seems likely. 


It is the assembler which really shows 
off ADE+'s power. ADE+ is not just a 
simple assembler like the one built into 
BBC Basic. It is more of a compiler than 
an assembler. The pseudo ops provided and 
the modular nature make using the ADE+ 
assembler more like using a high level 
language than a simple assembler. 


ADE+ has over 68 pseudo ops available. 
As well as the likes of ORG to define the 
start address of the object code and FQU 
to insert an item of data, ADE+ includes 
unexpected codes like QUERY to input data 


from the keyboard at assembly and even 


WHILE...WEND for assembler 


sections. 


repeating 


ADE+ assembler programs can be written 
in one of three ways. As with any 
assembler a program can be written, 
assembled and then run. The problem with 
this method is that the program length is 
limited by the RAM available. Other 
systems get around this problem with 
'macros' - self-contained subroutines of 
assembler code that can be defined and 
then called up by name from another 
assembler vrogram. ADE+ supports macros 
but also goes a stage further. 


ADE+ can create and use _ ‘link 
modules'. These are not fully assembled 
when put through the ADE+ assembler. 
Instead it just works how much room they 
will take up and what variables and labels 
they will use. This information can then 
be saved and many link modules assembled 
together with the special linker program 
in the ADE+ ROMS. 


Because subroutines 'assembled' in 
this way are not yet fixed as to address, 
variable values, label locations and so 
on, they can be used as genuine 
relocatable library routines. Once a 
routine has been developed and tested in 
this way it can be kept for use at a later 
date in any other program, confident that 
it will work. 


Not only is ADE+ compatible with all 
versions of the BBC micro but it can make 
the most of each too. It can use all the 
"extended! codes used by the second 
processors 65C@2 and the Masters' 65012, 
and the extra codes provided on only the 
Rockwell microprocessors. All this makes 
the ADE+ system the most comprehensive 
around. However, it is not a program for 
the faint-hearted. The ADE+ manual is 
heavy work-to plough through. It is not 
well explained and poorly structured. 


Nevertheless, I have little hesitation 
in recommending this package. Until ADE+, 
Clares' Macrom was the last word in 
assemblers for the Beeb. It is clear this 
program provides a complete development 
system for a remarkably low price. 
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VIRTUAL 
ARRAYS (rar 2) 


Jacob Abboud describes some altern- 
ative but more sophisticated ideas to 
conclude his discussion of virtual 
array techniques for data storage. 


In the first part of this article, we 
looked at the 'separate files' method for 
implementing virtual storage of large 
arrays.. In this final part, we look at two 
alternative and more elegant methods. 


STACKED RANDOM ACCESS FILES 

The 'separate files' method, described 
last month, stores each array in a 
separate data file, and is thus limited to 
a maximum of five arrays. The ‘stacked 
random-access files' method, however, 
stacks all the arrays in a single file 
starting with the array with reference 
"A". The stacking sequence is very 
important for setting the pointer when 
accessing the arrays, and it is essential 
to use the correct array reference. 


In order to implement this method, 
programs (1) and (2) from last month 
should be modified as shown opposite. Make 
these alterations and run the driver using 
the same example given in part one, with 
two integer or real arrays A(1Ø9), 
B(1ØØ,3). The performance of this method 
is simila¥~ to that described in part one 
(in fact, one second slower when writing 
the 400 numbers due to the increased 
calculations introduced by PROCpointer). 
This method provides the flexibility of 
using only one file to store a number of 
arrays, and is thus limited only by the 
available disc space. 


PAGED VIRTUAL MEMORY 

This is the most complex of the three 
methods for implementing virtual storage. 
It departs completely from the unblocked 
'randöm-access files' techniques applied 
in the previous two methods. We therefore 
need a new virtual memory driver and main 
program procedures. 
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THE VIRTUAL MEMORY DRIVER PROGRAM 1 


1045 X=OPENOUT ("A") 

lines 1080,1160 

1170 BPUT#Z,s1%,BPUT#Z,s2%, 
BPUT#Z, it% 

1195 CLOSE#X 


Insert 
Delete 
Change 


Insert 


DEMONSTRATION PROGRAM 2 


The main function of PROCopen now 
changes to reading the information from 
linfo and installing it in &7Ø-&9A 
(assuming that the number of arrays is 
less than 18), amd to opening the one 
file containing the stacked arrays, file 
"a". It is also necessary to include a 
new procedure to calculate the position 
of the pointer (PROCpointer), and hence 
changes to both PROCout and FNin. The 
parameters for accessing the arrays 
remain unchanged. The full listings of 
PROCopen, PROCout, FNin, and PROCpointer 
are included below to avoid confusion: 


10006 DEF PROCopen 

1018 Z=OPENUP ("! info") :X=OPENUP ("A") 
1028 n%=BGET#Z 

1038 FOR I%=1 TO n% 

1060 1%?&6F=BGET#Z:1%?&7F=BGETHZ, 
1070 13?&8F=BGET#Z 

1989 IF I%?&8F=0 13?&8F=5 ELSE 13?&8F=6 
1990 NEXT:PRINT" Ready""' 

11ØØ ENDPROC 

1119 g 

112Ø DEF PROCout(i%,j%,b,AS) 

113Ø a%=ASC (AS) -64: PROCpointer 

1140 IF a3?&8F=6 PRINT#X,b 

1150 IF a%?&8F=5 b%=b:PRINT#X,b% 
1168 ENDPROC 

1179 g 

1180 DEF FNin(i%,j%,A$) 

1198 a%=ASC (AS) -64: PROCpointer 

1200 IF a%?&8F=6 INPUT#X,v:=v 

1210 IF a%?&8F=5 INPUTHX,v%:=v% 
1220 : 

1230 DEF PROCpointer 

1240 sz%=Ø:IF at=1 GOTO 1280 

1250 FOR K%=1 TO a3-1 

1260 sz%=5Z%+K%?&6F*K%?&7F*K%?8&8F 
1270 NEXT 

1280 sz3=sz3t+a3?&7F*ad2&8E* (13-1) +a ?&8F 
* (33-1) 

1290 PTR#X=sz%: ENDPROC 


EXPLANATION OF THE METHOD 


The basic idea behind this scheme is 
to use a fast disc drive (preferably a RAM 
disc) as a primary storage device with 
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main memory acting as buffer space. 
Storage is divided into blocks, or pages, 
which are resident on disc. During 


computation, pages are brought into memory 
buffer space (which contains several 
blocks, not necessarily sequential, in the 
form of arrays), and eventually written 
back. If several blocks are resident in 
memory, and an element of an array is 
requested which is not present, the 
program chooses one of the current blocks 
for exchange with the appropriate one on 
disc. A poor choice of algorithm can 
result in continuous swapping of blocks 
(called thrashing). The present algorithm 
monitors the amount of access to each 
block and chooses the least used block for 
swapping. When a new block is brought into 
memory, it will, at that time, have had 
the least usage of all, and will, 
artificially, be most vulnerable to 
swapping. To avoid this, the new block is 
arbitrarily assigned a number of accesses 
equal to the current maximum, thereby 
ensuring its residence in memory for some 
time. 


THE NEW DRIVER PROGRAM 

Type in this month's driver program 
(Driver Program 3), amd save it. The 
program does not require any inputs since 
data is built into the program (array 
dd%). The choice of the number of memory 
pages (pgms) and page length (pgl%) will 
depend on the amount of memory available 
after writing your own applications 
program, and the number and size of the 
different arrays to be used. 


Each array occupies pgm% pages in 
memory. The variable na% should be set to 
the number of arrays that will use virtual 
memory (in this case two), and the data at 
line 128 should show for each such array 
in turn, the second dimension (1 if 
necessary) and type (integer Ø, real 1). 
For each array, dd%(i%,1) holds the second 
dimension of array i, and dd%(i%,2) the 
type. The driver program will generate a 
number of random access disc files equal 
to npds*na% which will be named 11, 12, 
21, 22, etc. In each case the first digit 
references the array, and the second the 
page. Hence, to accommodate X(5ØØ), we can 
have pgl%=50, and npd%=1Ø, and so on. Make 
sure that the commands in lines 19Ø and 
2ØØ are correct for your filing system 
(RAM disc, DFS etc). Running the program 
should then be straightforward. 
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MAIN PROGRAM 
Type in the second (demo) program and 


save it. This establishes two virtual 
arrays, called here X and Y. The 
procedures that you would need to include 
in your own program are PROCinit, PROCout, 
FNin, PROClimit, PROCpagin, PROCpagout, 
FNmax, FNmin. The rest of the program is a 
demonstration of the technique. 


The working buffer in the main program 
should be implemented by using two or more 
arrays, dimensioned as X(pgm%,pgl%) if a 
single array, and  Y(pgm%,pgl%,second 
dimension) if a two dimensional array (you 
can choose any array names you like, but 
in calling FNin and PROCout the first 
array is referenced as array 'l', the 
second as array '2' amd so on - the 
parameter a%). Choose as large a value of 
pgl as you can get away with because it 
will improve the efficiency of the 
program. You can experiment by changing 
the values of pgm% and pgl% for optimum 
efficiency for your particular 
application. The program works by checking 
whether the requested element of an array 
is in its buffer, and if so in what vage. 
If it is not present, it calculates the 
page required, and determines which page 
in buffer should be swapped with the 
required page on disc. If the page to be 
swapped has been written to, it is saved 
before the new page is loaded from disc. 


For optimun efficiency, the routines 
would have to be rewritten in machine 
code, and possibly placed in sideways RAM. 
The demonstration program writes 2400 
bytes (486 numbers) to two arrays and then 
reads them. During execution the pages in 
memory (1-3 for each array, v9m%=3, 
pgl%=25) are displayed so that you can see 
how the swapping takes place. The routine 
performed quite reasonably using a RAM 
disc. I found great imorovement when I 
compiled the program using Computer 
Concepts' Accelerator. 


ADAPTING THE PROGRAMS 

To assist in adapting the programs to 
your own requirements we will look at a 
further example. Suppose we wish to use 
three virtual arrays called DAY, MONTH and 
YEAR, where MONTH is two dimensional and 
the other two are one dimensional. Set na% 
(in both programs) to 3. At line 1280 in 
the Demo program dimension the three 
arrays DAY,MONTH and YEAR as described 


Beebug March 1987 


and FNin to 
113Ø, 


before. Modify PROCout 
accommodate the three arrays (lines 
1146 and 1238, 1248): 

IF a%=1 DAY (b%,pos%) =b 

IF a%=2 MONTH (b%,pos%, j%) =b 

IF a%=3 YEAR (b3,00s%)=b 


PROCEDURES AND FUNCTIONS 


Initialises memory pages, and sets 
the write status to zero. 

Writes data to array. Calls 
PROCpagin if the element is not in 
the memory buffer, and finally 
increments number of accesses to 
array by 1. 

in Reads data from array. 
PROCpagin as in ‘out’. 
Works out whether the element is in 
one of the buffer pages and also 
finds its position in the buffer. 
If not, calculates the required 
page to be loaded. 

Calls PROCpagout to save page to be 
swapped if previously written to, 
before loading the required page 
from disc. 

pagout Writes page to disc. 


init 


out 


Calls 


limit 


min Finds the least used page in 
buffer. 

max Finds the maximum accesses of an 
array in buffer. 

loc Finds location of data to be read 
from &70-&90. 

VARIABLES 

pgl% Page length in memory 

pgm Number of pages in memory 

npd%$ Number of pages on disc 

na% Number of arrays 

acc% () Number of accesses array 

i% First array dimension index 

j% Second array dimension index 

b,b% Number to be written by PROCout 

v,v% Number returned by FNin 

AS Array reference letter 

a% Array reference number 

w% Used as a write flag 


b% Current page in buffer 


lr% Lower limit of array in a page 
hr% Higher limit 

pgr% Page required 

pos% Position of element in array 
pg$ Name of page on disc 

mn% Minimum value of accesses 

mx% Maximum value of accesses 
L%,K%, Local counters 

r% 
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REM VIRTUAL MEMORY DRIVER 3 

REM Version B4.2 

REM Author Jacob Abboud 

REM BEEBUG March 1987 

REM Program subject to copyright 


pg1%=25 :npd%=4 : na3=2 
DIM dd% (na%,2) 

DATA 1,0,3,0 

FOR I%=1 TO 2 

FOR J%=1 TO na% 
READ dd%(J%,1I%) 

NEXT 

NEXT 


*RAMDFS 1 

DR 1 

MODE7 

FOR I%=1 TO npd% 

FOR J%=1 TO na% 

nmS=STRS (15) +STR$ (J%) 
PRINTTAB (Ø,3) "Writing page ";nmS 
Z=OPENOUT (nm$) 

FOR K%=1 TO pgl% 

FOR L$=1 TO dd%(1,J%) 

IF dd (2,J%)=1 PRINTHZ,1E-2Ø ELSE 


PRINT#z,Ø 


3ØØ 
31Ø 
32Ø 
33Ø 
34Ø 
35Ø 


NEXT 

NEXT 

CLOSE#z 

NEXT 

NEXT 

PRINT '"Paged Virtual Memory Instal 


DEMO PROGRAM 3 


REM PAGED VIRTUAL MEMORY DEMO 3 
REM Version B1.3 

REM Author Jacob Abboud 

REM BEEBUG March 1987 

REM Program subject to copyright 


MODE7 

@3=4 :pg13=25 :ngms=3 :nas=2 
DIM X(pgm%,pg1%) ,¥ (pgm3,pg1%,3) 
DIM acc% (pgm% ,na%) 
PROC ini t :TIME=Ø 

FOR I%=1 TO 1ØØ 

PROCout (1%,1,1%,1) 

NEXT 

FOR I13=1] TO 199 

FOR J%=1 TO 3 

PROCout (13 ,J%,1%3,2) 

NEXT 

NEXT 
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430 : 


1806 
1010 
1020 
10638 
1040 
1050 
1060 
1070 
1080 
1098 
1106 
1118 
1126 
1130 
1140 
1156 
1168 
1170 


1188 : 


1196 
1200 
1210 
1220 
12308 
1246 
1256 
1260 
1276 
1280 
1298 
1306 
1318 
1328 
1330 
1340 
1358 
1360 
1378 
1380 
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tl=(TIME DIV 1ØØ)MOD 6Ø:TIME=Ø 1399 
: 14ØØ 
1850 141Ø 
REPEAT 1420 
1%=1%+1 1430 
X=FNin(I%,1,1) 1449 
UNTIL 1%=1ØØ 1450 
: 1460 
13=Ø:J%=Ø 1470 
REPEAT (r%) 
18=1%+1:J3=I%+1 1480 
Y=FNin(13,J%,2):IF J%=3 J%=1 1499 
UNTIL 13=108 1500 
: 151Ø 
t2=(TIME DIV 1ØØ)MOD 60 1520 
CLOSE#8 153Ø 
PRINT ' "CPU time taken:"' 154Ø 
PRINT"Writing data ";tl 1550 
PRINT"Reading data ";t2 1560 
END 1570 
$ 158Ø 
DEF PROCinit 1590 
FOR I%=1 TO pgms 1600 
FOR J%=1 TO na% 1614 
K3=FNloc (J%) 1620 
1%? (&6F+K%S) =13 r%) 
13? (&7F+K%)=Ø 163Ø 
NEXT 1640 
NEXT 1650 
ENDPROC 1660 
: 167Ø 
DEF PROCout (i%,3%,b,a%) 1680 
PROCLimit (i%) 1696 
IF ws=1 PROCpagin (a%) 1790 
IF a%=1 X(b3,pos%) =b 1719 
IF a%=2 Y(b%,no0s%,j%) =b 172 
bb? (&7F+FN1oc (a$) ) =1 1739 
acc% (b%,a%) =acc% (b%,a%) +1 1749 
ENDPROC 1750 
3 1760 
DEF FNin(i%,j%,a%) 1778 
PROCLimit (13) 1780 
IF w=] PROCpagin(a%) 1790 
acc% (b% ,a%) =acc% (b%,a%)+1 1800 
IF a%=1 =X (b%,pos%) 1819 
IF a%=2 =Y (b3,pos%, 4%) 1820 
; 183Ø 
DEF PROClimit (n%) 184Ø 
LOCAL i%,k%:i%=Ø:b%=Ø 185Ø 
REPEAT: ið=i13+1 186Ø 
k3%=1%? (&6F+FNloc(a3)) 187Ø 
l1r%=pgl3* (k%-1)+1:hr3%=1r%+pgl3-1 188Ø 
IF n%<lr% OR n%>hr& GOTO133Ø 189ø 
b3=i%: is=pgms 1900 
UNTIL i%=pgm% 1919 
IF b%=Ø GOTO136Ø 1926 
w%=Ø:pos%=n%-lr%+1: ENDPROC 1939 
w3=l:pgr%=(n% DIV pgl%)+1 1949 
IF (n% MOD pgl%)=Ø pgr%=pgr3-1 195ø 


pos3=n%-pg1%* (pgr%-1) 


ENDPROC 


DEF FNloc(t%) 

= (3-1) *pgm 

DEF PROCpagin(r3) 

LOCAL 1i%,j%:b%=FNmin 

PROCpage 

IF b%?(&7F+FNloc(r%))=1 PROCpagout 


PYS=STRS (pgr3) +STRS (r%) 

p=OPENUP (pg$) 

FOR i%=1 TO pgl% 

IF r%=1 INPUT#p,X (b%,i%) :GOTO155Ø 


FOR j3=1 TO 3 

INPUT#p,Y (b%,i%,3%) 
NEXT 

NEXT 

CLOSE#D 

b3? (&6F+FN1OC (r3) ) =pgr% 


ENDPROC 


DEF PROCpagout (r3) 
LOCAL i%,j% 
PgS=STRS (b3? (&6F+FN10c (r%) ) )+STRS ( 


q=OPENUP (pg$) 

FOR i%=1 TO pgl% 

IF r=] PRINT#q,X (b%,i%) :GOTO169) 
FOR j%=1 TO 3 
PRINT#q,Y (b3,i%,j3) 
NEXT 

NEXT 

CLOSE#q 
b3?(&7F+ENloc (r%) )=Ø 
acc’ (b% ,r%) =FNmax 
ENDPROC 


DEF FNmin 

LOCAL k%:mn%=9ØØØ 
FOR k3=1 TO pgm% 
L%=acc’ (k%,r3) 

IF L%<mn% mn3=L%:b%=k% 
NEXT 

=b% 

DEF FNmax 

LOCAL k%:mx3=-9ØØ9 

FOR k3=1 TO ngm% 
$=acc% (kb, rb) 

IF L@>mx% mx%=L% 

NEXT 

=mx% 


DEF PROCpage 

FOR u$=&7Ø TO &7Ø+2*pqm%-1 
PRINT ?u%; 

NEXT: PRINT 

ENDPROC 


B 
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ai” 15th show 


where you'll find all the latest home, 
education and business software 


DUL: 
Er new hardware add-ons that will expand 


the power and versatility of the Electron, 
BBC Micro, Master and Compact 


Renold Building Friday to Sunday 
UMIST March 20 to 22 
Sackville St Doors open 10am 
Manchester Close 6pm Friday 

and Saturday, 


4pm Sunday 


| to get 50p per person off the | 
| normal admission price of £3 | 
| (adults), £2 (children). | 
| Valid for up to four people. | 
| 10am-6pm, Friday, 20 March | 
| 10am-6pm, Saturday, 21 March | 
| BELLIS 10am-4pm, Sunday, 22 March | 
| Q ou Renold Building | 
på R $í UMIST, Manchester Ð] 
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COMMAND 


Command is the ideal com- 
panion for the Beebug Magic 

odem, and other BBC com- 
patible modems. 


Command is a very special 
command driven communi- 
cations ROM, with a powerful 
extended instruction set. 
Because it may be command 
driven, it is exceptionally easy to 
link instructions together in 
Basic to build your own 
customised communications 
software. 


o Viewdata Terminal 
A full feature Prestel Terminal 
with pull-down help screen, real 
time clock and Epson compatible 
mode 7 screen dump. 


Text Terminal 

Send files to a friend for the cost 
of a phone call, and access 
hundreds of Bulletin Boards 
throughout the country. Features 
include: 40/80 column operation, 
Xon/Xoff protocol, and pull-down 
status panel showing how 
Command is configured. 


Telephone Directo 

This excellent facility allows you 
to save a name, number and 
modem configuration onto disc, 
for easy recall at a later date. No 
need to remember telephone 
numbers anymore. 


Viewdata Editor 

A full feature teletext editor, with 
a full range of editing commands, 
pull-down help window, and a 
pixel editor. 


MEMBERS 
PRICE 


£29.» 


PRICE 


£39.00 


— the ultimate communications ROM 
— for the BBC Micro & Master 


Copyright <C> Beebug Limited 1986 


Record 0 
Name PRESTEL 
Number 01-618-1111 
Sign-on 44444444444444 
Terminal. VIEWDATA 


Transmit 
Filter Off 
Rate 75 


Receive 

Off 

1200 

Standard: 2 (7+1 bits even parity) 
Echo Off 


o 
XonzXoff Off 200 220 
Colour 7 o 


Monitor: Off 
and 0 
Mode 7 


Call Next 


e Delete 
Gave oat New int 


Over 50 powerful 
commands, including 

* ANSWER x BAND 

x CALL x CONNECT 
* DIRECT * DISCONNECT 
x DISPLAY x DOWNLOAD 
x ECHON * GRAB 

x LISTEN * PAUSE 

* PRON x PSCREEN 

x RETRY * RINGS 

x SAY * SDUMP 

* SEND * STANDARD 
* STAT x TEXT 

x UPLOAD x VEDIT 

* VIEWDATA x XON 


Supplied on ROM with 76 
page manual, and handy 
function key strip. 


A 
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PRINTWISE — eaen Sr dosoment 


The ideal companion 
for Wordwise, View and 
Inter-word 


Printwise is a low cost publishing aid, 
and allows you to create professional 
looking magazines, leaflets, posters 
— the possibilities are endless. Also 
use it for ‘near-letter anh Á printout 
for correspondence. Simply take your 
text file, specify the font styles you 
require, and Printwise will do the rest. 


No programming skills are 


18 authentic fonts 
covering 4 standard 
typesizes. 

all fonts can be used in 
the same document, or 
even in the same line! 
italic, bold and 
condensed typestyles. 
proportional spacing, 
right justification, full 
indentation. 

powerful font designer. 


necessary. 
MEMBERS — any length text 


PRICE suitable for all Epson 


$22 5) compatible printers, and 


Shinwa CP80. 
A.STYLISH 


PRICE 


£30.00 


VHSKK"()*+,-/0123456789: ; <=>7@ABC 
MNOPOQRSTUVWXYZINI"—£abcdefg 


“Vi B.BOOKTEX 
FC 


kli r4$%82()*+,-./0123456789 : <=> 9@A 
MNOPORSTUV WXYZI\I"—E£abed 


m C.ULTRA 


kl 1#S%8' O k+, —./ 0123456 
EFGHIJKLMNOPARSJØ 
—f£abcdefghijkimnogy 
“HSL O+,-./ OLLAR 
DEF GHISKLMNOBORKYE 

“~—f£abcdefghi j IÆ) a 

På SEV 
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Personal Ads 


Replay system for Acorn 8271 DFS £2Ø, 
Solidisk 32K sideways RAM £15, Acorn 
speech system (chips only) £5. All with 


relevant manuals. Phone (9773) 764380 
after 6pm please. 
Master compatible Superior Software 


discs: Repton 2, Repton 3, Citadel £8 
each. Elite £19. BBC B Scrabble tape £5. 
Two Peartree Master ROM cartridges £5 
each. All software in mint condition in 
original packing. Tel: (026378) 488. 


BBC B with Watford 32K RAM and ATPL 
sideways ROM, UDM single/double density 
DFS complete with Toolkit and Disc 
Doctor ROMS - £308 ono. Tel: Wigan 
(8942) 715753. 


Cumana CS4ØØ switchable 40/80 track Disc 
Drive with incorporated power unit, 
hardly used £158 ono. Tel: 91-952 7244. 


6582 second processor (requires DNFS) 
with HiBasic, HiView, 6502 Development 
Pack £125. 4Ø track 100K disc drive £69. 


Tel: (8256) 464889 evenings. 
Owner upgrading. Software and games 
comprising Beebugsoft Toolkit Plus, 


Quickcalc, Frak, Scrabble, Ski Slalom, 
Ghouls. All games and Quickcalc cassette 
versions - £35. Tel: (243) 820640. 


Wanted: Microwriter MKIV or Quinkey, 
reasonably priced. Replies to 
C.P.Jamieson, 58 Hong Kong Workshop 


REME, Malaya Lines, Sek Kong, BFPO 1. 


ATPL 'Sidewise' ROM/RAM board £25, 
Watford 32K shadow RAM board £50, 
Beebugsoft Toolkit £18, Chalice Master 
ROM £10, Elite (disc) £10, Aviator 
(disc) £18 and BCalc (disc) £5. All 
boxed complete with manuals. Reasonable 
offers accepted. Tel: (8753) 853193. 


For Sale: ROMs £15 each: Spellcheck III, 
Sleuth, Exmon II, Toolkit Plus, View 
2.1, Watford DFS, Gemini Datagem. Discs 
£1Ø each: The Hobbit, Gemini Beebcalc, 
Gemini Money Management, Kansas Personal 


Finance. Tapes £5 each: Monopoly, White 
Knight Mk 12. ATPL sideways ROM board 
plus 16K RAM £20. All with 


documentation. Tel: (Ø923) 21425. 
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Toolkit Plus, Help II, GXR, 
ROMS 
Elite £5 plus postage. Tel: 
(Herts). 


Scribecheck 
unregistered £19. Program Builder, 
(9442) 67952 


Tandy 4 colour printer/plotter (Oric 
printer), cable to connect to BBC, spare 


pens and paper. £58 ono. Tel: (04023) 
77138 (Romford). 
BBC B Software: Wordease, Quickcalc, 


Beta-Base, Dialog Home Accounts Manager, 
Fileman, Elite, Wordwise Plus Handbooks 
Beverley and Smith both with demo discs. 
All on 48 track. £45 the lot. Tel: 
061-928 3571. 


Single disc drive, double sided 40 track 
with own PSU. £75 plus carriage. Tel: 
(Ø246) 418215 evenings. 


Morley Teletext Adaptor and V.2a ROM for 
sale, only £58 (includes p&p), complete 
with manual in original packaging. ROM 
clashes and loss of interest in Teletext 
reasons for sale. David Shepherdson, 3 
Tarn Villas, Cowpasture Road, Ilkley, 


West Yorkshire LS29 8RH. Tel: (0943) 
699866, ` 
Beebugsoft Sleuth ROM £2Ø. P.Jacobs, 15 
Cheriton Road, Winchester, Hants S022 
5EQ. 

Wordwise Plus £3%, Spellcheck II (89 
track dictionary disc) £15, Wordease 


(disc version) £10, or all 3 for £50. 
BEEBUG Toolkit ROM £10. ATPL ROM board 


and sideways RAM plus SMP Computing 
Sideways RAM utilities (e.g. print 
buffer), all for £25. Elite (disc 
version) £7.58. All originals and 


include manuals, p&p etc. Tel: S.Gaynor 
(9462) 682961. 


48 track disc drive, mains powered, 
complete with cable £54; Wordwise Plus 
ROM and manuals etc £26. Vu-Type tape 
and manual (typing tutor) £6. Forth tape 
and book £9. Discmaster disc and manual 
£10. Book '3Ø Hour Basic' £5. Book 
"Advanced User Guide' £6. Approx. 55 
floppy discs £58. BEEBUG magazine April 
1984 to present £10. Contact Mike on 
Bedford (8234) 218918. 


FANGES RTI AE EST EESTI SE EEE BL EY DELETE SESE AT RTI INIA TERN NIE A ERE REED OTE TEETER STRAIT IEEE 
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6502 second processor £190, Aries B32 
RAM board £60, ATPL Sidewise ROM board 
£20. Tel: (8782) 392713 evenings only. 


Discs. Pack of 38 5.25" DS, brand new, 
in sleeves £20. T.Wiltshire, 
"Bramblings", Pelican Road,  Pamber 
Heath, Basingstoke, Hants RG26 6EL. Tel: 
(9734) 701163. 


Changing hobby. I have a BBC Model B (0S 
1.2) with OPUS DFS and disc drive, 
shadow RAM, Wordwise Plus and 19 discs. 
All mint condition. Have you a Double 
Bass with bag and bow or £4008? 
(preferably a Bass). Please phone (9629) 
56771. 


Acorn 280 and 65082 second processors 
combined in one case with front switch 
and LEDs. Includes original software, 
manuals and other case. £258 ono. Acorn 
Prestel adaptor £75 ono. Wordstar 
professional for Acorn 288 £225 ono. 
Acornsoft GXR ROM £18, Exmon II £15. 
Tel: (8533) 312661. 


BBC bits. Nightingale modem, ATPL ROM 
board, two disc drives, MCP4@ plotter, 
ROM and disc based software. Offers OR 
exchange for Opus 58Ø2/Hard disc/Red 
boxes? Tel: Alan on 41-340 2646. 


Watford 32K shadow RAM board, ROM and 
manual £40. Tel: (989582) 3613 evenings. 


BBC B, Microvitec 1431 RGB monitor, 6502 
second processor, DNFS kit, Acorn speech 
kit, cassette recorder, Acorn software 
and books - £550. Tel: Liverpool 951-264 
8445. 


Cumana CS1ØØ drives (4Ø track SS with 
PSU). Pair on dual cable, plus manual, 
utilities disc, and spare cable. £140. 
Tel: North Weald (937 882) 2622 
evenings. 


BRC B, OS 1.2, Basic II with Watford DD 
D.F.S. £230. Opus Challenger with 256 
solid disc RAM £130. ATPL ROM board, 
ROMS - Toolkit, Disc Doctor, Exmon II, 
Printmaster. All items complete with 
manuals. Tel: Twyford (Ø962) 713546. 


Acorn 6582 second processor. As new with 
ROMS and manual - £99. D.Gibbons, 
Wantage (Ø2357) 3253. 
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BBC B with Acorn 1.2 DFS, Double Sided 
40/80 track 400K Viglen disc drive, ATPL 
Sidewise ROM board with sideways RAM, + 
£708 worth of software including 
Wordwise Plus, other ROMs and various 
games. Fitted with brand new keyboard: 
£658 ono. Tel: 91-444 7748. 


Creative Sound (Acornsoft), Manual and 
two discs. Boxed fll. Murom 
(Beebugsoft), ROM and manual £15. 
R.J.Follett, 26 Arbor Lane, Winnersh, 
Berks RG11 5JD. 


Diablo 1300 Heavy duty Daisywheel 4Øcps 
plus interface £180, ribbons extra. 
Tandon twin 4Ø track £110. Hitachi 9 
inch monitor £25. Snap EV] camera £60. 
2X81 +16K offers. All vgc working. Tel: 
01-851 7266. 


Pace Nightingale Modem 309/300 and 
1200/75 Baud with auto-dial emulation 
plus Commstar 1 ROM and 8Ø track disc 
software. All original manuals and user 
guide. Suitable for use with BRC micro 
and B.T. standard two wire telephone 
line. New in August 1986 cost £204, will 
accept £95 for quick sale. Telephone 
(0625) 27306. Macclesfield Cheshire 
area. 


Toolkit Plus ROM £29, Sleuth 1.06 ROM 
£15. Both with manuals and reference 
cards. Also miscellaneous software. Tel: 
Doncaster (9302) 744005. 


Star Gemini 1ØX printer (120 cps), 
manual and lead, little used £95. 
Voltmace 14/81 adaptor box, keypad and 
joystick driver cassette, instructions 
£6. Tel: 01-943 6616 (work) or 91-948 
3956 (home). 


New Master Turbo, twin 40/84 DS drive, 3 
reference manuals (Welcome + part 1 & 2 
reference), 3 ROM cartridges, RAW 
ROM/RAM cartridge. Only £758 for over 
£9ØØ's worth plus lots of software. Tel: 
(9705) 256699 (Hampshire). 


Acorn Z8Ø 2nd processor, with all 
software and manuals, boxed as new £225 
(will deliver). Tel: P.M.Brown (8955) 
82623. 


Wanted by Master owner - copy of the 
manual for Acornsoft's Graphics 
Extension ROM (to buy or borrow). Peter 
Jennings, 26 Rowan Close, St.Albans, 
Herts AL4 ØST. Tel: (Ø727) 61835. 
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UK Bulletin Boards 


(Continued from Vol.5 No7.) 


TBBS West Midlands 
18.90-08. 30 


Techno Fresh systems 


24 Hours 


Technoline 
24 Hours 


Telemac 15, OBBS 
24 Hours 


Timestep 
(Suffolk) 


TUG London 


24 Hours 


TUG Board II 
20.00-08.00 


WBBS Lowestoft 
18.00-00.00 


0384 635336 
(London) 
300/300 


Ø57Ø 423082 


(Dyfed) 
306/308 1200/75 


Øl 450 9764 
(London) 
12ØØ/75 Viewdata 


9625 33703 
360/300 


9440 820002 
1206/75 


Øl 208 7577 
(London) 
300/300 


Ø21 444 1484 
(Birmingham) 
300/300 


9502 515935 
(Suffolk) 
300/300 


WBBS Wimbledon 
19.ØØ-92.Ø9 


Øl 542 3772 
(London) 
1200/75 & 300/300 


New UK Bulletin Boards 


HBBS No.1 
24 Hours 


Infocom 
24 Hours 


Intaview 
24 Hours 


Madhouse 
24 Hours 


SBBS Stevenage 
24 Hours (Ø8ØØ- 
23ØØ ringback 


Ø274 42957 
(Bradford) 
1208/75 300/390 


021 476 9881 
(Birmingham) 
1200/75 3ØØ/3ØØ 


21 622 5010 
(Birmingham) 
1208/75 


961 477 8405 
(Manchester) 
1200/75 300/300 


0438 722128 
(Stevenage) 
300/300 


Members Corner 


Mr Luckhurst writes from Kingsdale School, 
The school has a blind student who started on GCSE exam 


although the school is comparatively well 


requires help from anyone willing to hel 
help this student. If anyone can help, 


a comprehensive in Dulwich, south London. 
courses September last, and 
equipped with computer hardware and software, 
p in the conversion and writing of programs to 
then please contact Mr Luckhurst at the school. 


The address is Kingsdale School, Alleyn Park, Dulwich, London SE21 850, or telephone 


01-676 7575. 


David Else is interested in 
Meteorological Office in Bracknell, 


receiving weather 


facsimile transmissions from the 
using a Sony ICF 2001 receiver. 


If anyone can help 


David regarding interfacing and programming please write to him at 5 Copthorn Road, 
Upper Colwyn Bay, Clwyd LL28 5YP or phone Ø492-531584, 


Do you use Japanese Kanji 
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on a B3C micro or Torch system? If so, Mr H.Williams of 15 
High View Road, Onslow Village, Guildford GJ 5RS would be interested to hear from you. 
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BEEBUG FILER — see this issue RE Aa hd SE 


BEEBUG magazine's own database management system. 


Suite of five programs including: 
* Top-level Menu Selector 
* Database Management including Mail-Merge 
* Graphics Option 
* Home Banking Option 
* Fast Sort Program 


Supplied on dual 40/80 track disc — Instructions 
and program notes included. 


Price £5.50 plus £1.00 post and packing. 


BEEBUG Sideways RAM Module — see Vol.5 No.7 
The cheapest and easiest way of adding sideways 
RAM to your Beeb 

* Plugs directly into any BBC ROM socket 

* Construction and software described in magazine 
Available as a kit of parts for you to make up 
yourself, or ready made 

Price £8.95 (kit) £12.95 (ready made) 

Post & packing £1.00 in each case 


BEEBUG Master Alarm ROM — see this issue ace on eee 


* Automatic clock and date alarm for the Master 128 TINE: Thy 15 Jan 1987 14:55:23 
* Available in ROM for immediate use ? 10:30 
x As described in this month’s magazine 


Supplied on EPROM 
Price £6.45 plus £1.00 post & packing 


ORDER FORM Please send: 


Fler Dise ` = SES 
BEEBUG Sideways RAM Kit___£......... 
BEEBUG Sideways RAM Module £ ......... 
BEEBUG Master Alarm ROM___£......... 


Membership NUMD@r...........2222./10:06 Post A Facing t A LE da 


Signature TEL sms Total Bader 
Please debit my Access/Visa No. 


Send to: BEEBUG Mail Order, Dolphin Place, Holywell Hill, St. Albans, Herts AL1 1EX 
Telephone Orders welcome. Tel: (0727) 40303 
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Business Ads 


MARKS AND STATISTICS For teachers and 63 Stanbrook Road, Shirley, W.Midlands 
lecturers. Simple to use spreadsheet B9Ø 4US. 

format. 3308 students per file. Up to 300 

subjects. Sorts, analyses, normalises, Chess Expert System. Send for details 
calculates means, applies weighting and prices of this data capture and 
factors. Prints histograms and lists. editing system with the gigantic 
Full documentation supplied. Disc (48 or database. Still available: Opening 
8Ø track) £17. In-Form, 73 Woodfield Knight and Knight Writer for White 


Park, Colinton, Edinburgh FH13 ØRA. 


Knight Mk 12 and now Colossus 4. Large 
opening repertoire and game printing 


Oscilloscope Teaching Simulator program, programs, many delighted users. Send for 
perfect for showing CRO operation. free information pack, or cheque for £7 
Demonstration and real-time modes, to Bernard Hill, Hawthorn Bank, Scott's 


extremely versatile. Only £7. 


For Place, Selkirk TD7 4DP. 


details send large SAE to: Osc-Demo, 


ESTE ETE LST ET EE SIS SEN 
Events 


Electron and BBC 
Micro User Show 


Electron and BBC 
Micro User Show 


Acorn User Show 
PCW Show 


Electron and BBC 
Micro User Show 


UMIST, Manchester 29-22 Mar 
(change of venue) 


Old Horticultural 8-108 May 
Halls, Westminster 


Barbican Centre 23-26 Jul 


` Olympia, London 3-8 Sep 


Old Horticultural 13-15 Nov 
Halls, Westminster 


New High Scores 


ACORNSOFT Carousel 98820 S.Clark 
ALLIGATA Blagger 23280 S.Clark 
MELBOURNE Exploding Fist 7th Dan K.Brown 


41708 K.Brown 


SUPERIOR SOFT Í Repton 2 20468 I.Simmons 
SUPERIOR SOFT Í Space Pilot 112388 J.Benger 
SUPERIOR SOFT | Stryker's Run 19206 M.Williams 
US GOLD Commando 436006 K.Brown 


ALLE TELE ISDS SEE TEL SED EL EIT STEN ESN EI EIT IR PET EEE RENESTE NERA SLIP: 
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The latest add-ons from 
Vine Micros and Pear- 
tree Computers for the 
Master 128 reviewed by 


Peter Rochford. 
EN Not all of the software 
MASTER in the Master's 128K ROM 
SERIES appeals to all users. Vine 
Master Micros, realising this, 
have released their Master 
add-ons ROM Overlay Board at a cost 
review of £19.95. This allows 
paging out of any of the 
software contained in the 
128K ROM, and substitution of your own 
ROMS. The board comes with good 
documentation and takes just minutes to 
fit. After removal of the 128K ROM from 
its socket in the Master (Beware! Some 
Masters have their 128K ROM soldered in), 


the board plugs into the vacated socket, 
and the 128K ROM is inserted into a socket 
on the Vine board. 


Product: ROM Overlay Board 
Supplier: Vine Micros 
Marshborough, 
Sandwich, 
Kent CT13 OPG. 
Tel. (0304) 812276 
Price : £19.95 inc VAT & p&p 
Three further sockets on the board are 
used for your ROMs, and by means of links, 
you can page out up to three of the eight 
ROMs in the Master's 128K ROM. 


There are slight problems with this 
though, as View in the 128K ROM contains 
some OS code as does Terminal, whilst the 
DFS contains the SWR routines. This leaves 
the ADFS, Edit, Basic and ViewSheet as 
possible candidates for paging out without 
trouble. I find the board a useful 
addition to my Master even so. 


Product: ROM Cartridges 
Supplier: Peartree Computers Ltd 
St. George’s House, 

14 George St, 
Huntingdon, 

Cambs PE18 6BD 

Tel. (0480) 50595 

£8.35, £10.65, £12.95. 
With RAM £33.50. 
Allinc VAT & p&p. 


Price 
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One way around the lack of ROM sockets 
on the Master is by the use of cartridges. 
The Acorn ones are hideously expensive at 
£14.95, and easily broken when removing 
ROMs. Peartree Computers have now produced 
several cartridges of their own for the 
Master. The cheapest at £5.95 consists of 
a plug-in PCB with a handle for removal, 
but no case. This is fine, but does wobble 
about when in the machine, though this 
caused no problems in use. Their next 
offering is a cased version called Pear | 
at £7.95, again allowing the use of two 
ROMs and worth the extra I feel, for the 
better fit and protection. 


Peartree's 
£9.95, and will 
ROMS. 
time, and 
switch on top of the cartridge. A further 
feature of the cartridge is that it may be 


MR6ØØØ cartridge costs 
accommodate up to four 
Any two ROMs can be active at one 
are selected by means of a 


used as two 16K banks of SWR by inserting 
four 8K CMOS RAM chips. The RAM may be 
loaded like any of the Master's own SWR 
banks with ROM images, and a switch on the 
cartridge allows write-protect. At the 
price, this is a real gem, though one of 
the units we tested did need a file 
applying to it before we could plug it in. 
Peartree also supply the cartridge with 
RAM as the MR72ØØ for £26.95 along with a 
useful utility disc. 


CONCLUSION 


All these products can be recommended 
without hesitation to those who have a 
need for the facilities they provide. 
Construction and design in all cases is 
good, and the Peartree cartridges in 
particular, represent excellent value for 


money. B 
D 
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David Graham develops 
an auto-alarm system 
MASTER for the Master 128 which 
‘DIES will remind you of 
SERIES k 
j important dates and 
A versatile times, even if your 
auto-alarm | machine is switched off 
system for most of the interven- 
ing period. 
The combination on the Master of 
continuously running clock calendar and 


battery-backed CMOS RAM opens up the 
possibility of producing an alarm system 
to remind you of forthcoming events, which 
is not upset by switching off the 
computer. In this article, we will develop 
software to implement this idea. This 
deals with a central machine code program 
which is capable of continuously 
monitoring the time and date supplied by 
the Master's calendar, and comparing it 
with an alarm time (in years, months, 
days, hours and minutes) stored in 
compressed form in four bytes of CMOS RAM, 
When the dates and times match, an alarm 
is sounded every ten seconds. 


Accompanying this assembler program is 
a simple alarm management program written 
in Rasic, which allows easy control of the 
alarm system. This could be extended to 
permit a whole calendar of events to be 
catered for, so as to prompt you of each 
important event minute-by-minute until the 
end of the century. But we begin by taking 
a closer look at the alarm system itself. 


THE ALARM SYSTEM 

This has been designed to 
sideways RAM so that 
invisibly along-side other programs; and 
the code provided may also be blown 
directly onto EPROM to allow the system to 
work completely independently of the user, 
even if the computer is switched off for 
long intervening periods. If you do not 
have a blower, a ready-blown ROM may be 
obtained fron us - see details at the end 
of this article. 


reside in 
it can operate 


The software makes use of just two 
star commands: 
*Al Activate System 


*AØ Disable System 
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Once the alarm is active, a comparison is 


made once every second between the 
compressed alarm data held in CMOS RAM, 
and the current Master clock setting. If 


the alarm time has been reached, the alarm 
sounds every ten seconds until either a 
new alarm time is entered, or until the 
command *AØ is issued. 


To test out the system, tyoe in the 
assembler listing, and save it away before 
running it. When it is run, you will be 
prompted to press f8 to save the assembled 
code, and then f9 to load it into sideways 
RAM. Once you have done this, press 
Ctrl-Break to initialise the ROM image, 
and then type *Al. The command should be 
accepted, though without visible response. 
Now if you type: 

*FX162,43,255 
you should hear the alarm ring. Also, if 
Break is pressed at any time when the 
system is active, the message: 

Alarm System Active 
will appear. 


INACTIVE 


19 
Month (1-12> 7 
Date (1-31> 7 
Hours (0-23> 7 


€(9-59> 7 59 


ED E 


Minutes 


C Change Alarm 


ALARM MANAGEMENT SYSTEM 


Once the assembler routine appears to 
be working, type in the Basic listing, and 
run it. You should see a continuously 
updated display of the clock, together 
with the current alarm setting, which may 
initially look rather odd. Press "C" to 
enter a new alarm setting. If any field is 
to remain unchanged, simply press Return 
at the appropriate point. After you have 
done this, you should see your new alarm 


time displayed. This screen also displays 
the status of the alarm system, and after 
the time change option, you will see that 


it reads "Active". Note that "E" and "D" 
can be used to manually enable or disable 
the system. 
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The alarm will cope with any time 
setting from 1985 to 1999, and you should 
find that the software will operate 
invisibly under all circumstances. It is 
unaffected by pressing Break or 
Ctrl-Break; and if present on ROM, it is 
even unaffected by turning off the 
computer. As soon as you switch on again, 
it will continue to operate as before. If 
it is in sideways RAM, you will need to 
reload it when the machine is powered up. 
To do this, type: 

*SRLOAD romcode 8ØØØ n 
where n is the RAM bank number (4 - 7). 
Then press Ctrl-Break to initialise the 
ROM image. 


You now have a most useful working 
alarm system for your Master, that fully 
exploits some of its svecial features. The 
system described could in turn be readily 
extended to cover a whole calendar of 
future events. 


MASTER ALARM ROM 


An enhanced version of this software is 
available in ROM which contains a third 
| star command (*AD) to download and run 
the Alarm Management program, making 
full alarm control instantaneously 
available. The Alarm ROM costs £6.45 + 
£1.06 pp (inc. VAT), and is available 
from our St Albans mail order dent. Call 
in for a demonstration, 


TECHNICAL DETAILS 


CMOS USEAGE 


CMOS RAM No Function Range 
48 high Year J - 14 (1985-1999) 
48 low Month UER i 
41 Date 1 - 31 
42 Hours Ø - 23 
43 bits 0-5 Mins Ø - 59 
43 bit? Alarm active flag 
43 bit6 Alarm ringing flag 
ZERO PAGE 
Locations &70 - &7D are used as temporary 


storage, but are all preserved. 


SOUND CHANNEL 
Channel 2 is used for the alarm (since 1 
is commonly used, and 3 is used by VDU7). 
To alter the volume of the alarm, change 
the value &F9 set in line 111Ø. &Fl gives 
max volume, &FF minimum. 
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REM Program Master Alarm System 
REM Version B Ø.42 

REM Author David Graham 

REM Beebug March 1987 

REM Program subject to copyright 


OSASCI=&FFE3:OSNEWL=&FFE7 
OSBYTE=&FFF 4 : OSWORD=&FFF | 
OSC=&FFF7:caddr=&F2 
version=4:version$=" 0.42" 
chr=&7Ø:clock=chr+6:T=clock 
DIM Rb 3ØØØ 

FOR pass=Ø TO 1 

O%=R%:P3=8&8ØØØ 

[:OPT pass*3+4 

N P Re e e de de Fe de Jeke ke ke ROM Header 

+ Start :BRK:BRK:BRK 

service: JMP servicentry 

EQUR &82 

EQUB copyright-start 

EQUB version 

«title 

EQUS "Master Clock System" 
BRK:EQUS version$ 

„Copyright :BRK 

EQUS "(C) David Graham 1987":BRK 
+servicentry:PHP:CMP #&27 

BNE seØ:JMP breakcode 

«SeØ:CMP #4:BNE sel:JMP command 
«Sel : PLP: RTS 

«end: PLY: PLX: PLA: PLP: RTS 
-endA: PLY: PLX:PLA:LDA #@:PLP:RTS 
Vekkkkkkkkkkk Respond to Break 
„ breakcode: PHA : PHX: PHY 

JSR testbit:BPL breakl:JSR pushzp 
JSR brkmess:JSR setvector 

LDA #Ø:JSR settimer:LDA #14 

LDX #5:JSR OSBYTE:JSR pullzp 
«breakl:JMP end 

. Setvector 

LDA #&30:STA &22Ø 

LDA #&FF:STA &221 

LDA #handler MOD 256 

STA &D9F+48 

LDA #handler DIV 256 

STA &D9F+49:LDA &F4 

STA &D9F+5Ø:RTS 

-testbit:LDX #43:LDA #161 

JSR OSBYTE:TYA:RTS 

.brkmess:LDX #0 

-bmel LDA bne2,X 

JSR OSASCI: INX:CMP #13 

BNE bmel:JSR OSNEWL:RTS 
.bme2:EQUS "Alarm Active":EQUB 13 
\RRRRRERERERE Interrupt Handler 
«handler : PHP: PHA : PHX: PHY 
CLD:JSR pushzp 

LDX #43:LDA #161:JSR OSBYTE 
TYA:ASL A:BCC outl:ASL A 

BCC nonring:JSR beeper:LDA #&8Ø 
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111Ø 
1126 
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Acorn MOS 
Alerm Active 
Acorn 1770 DFS 


Basic 


> 


BRA out2 

.nonring JSR readclock 

JSR convert 

JSR readcmos 

JSR compare 

BCC outl 

LDA #&4Ø:STA chr:JSR flagchange 
-outl LDA #0 

.out2 JSR settimer:JSR pullzp 
PLY: PLX: PLA: PLP: RTS 

N RRR RIK RIK k k Clock Read 
«readclock:LDA #1 

STA clock:LDA #14 

LDX #clock MOD &1ØØ 

LDY #clock DIV &19Ø 

JSR OSWORD:RTS 

Nåde RK ke Ke BCD to Hex 

« bdec: TAY 

AND #&F:PHA:TYA:AND H&FØ:STA chr 
CLC:LSR chr:PLA:ADC chr:LSR chr 
LSR chr:ADC chr:STA chr:RTS 
Nok AR SKE Clock Converter 
«convert:LDA T:JSR bdec:SEC 

SBC #85:ASL A:ASL A:ASL A 

ASL A:CLC:STA T:LDA T+1:JSR bdec 
ADC T:STA T 

LDA T+2:JSR bdec:STA T+1 

LDA T+4:JSR bdec:STA T+2 

LDA T+5:JSR bdec:STA T+3:RTS 
Nede RK Read CMOS RAM 
«readamos:LDX #43 

-rcl LDA #161:STX chr:JSR OSBYTE 
DEC chr:LDX chr:CPX #42:BNE rc2 
TYA:AND #&3F:TAY 

.rc2 STY chr -38,X:CPX #39 

BNE rcl:RTS 

\****** Compare Clock and Alarm 
«compare:LDX #0 

-cml LDA chr+1,X N Alarm settings 
CMP clock ,X \ Clock Settings 
BEQ cmcont:BCC cmring 

CLC:BRA cmend 

+cmcont INX 

CPX #4:BNE cml 

+cmring SEC 

.cmend RTS 

N RRR RRR KR KKK 2 Tone Beever 
«beeper 

LDA #21:LDX #6:JSR OSBYTE 

LDA #2:STA T:LDA HØ:STA T+1 

LDA #&F9:STA T+2:LDA #&FF 

STA T+3:LDA #100:STA T+4 


113Ø LDA #5:STA T+6 

114Ø LDA #5:STA T+5 

115Ø .snl LDX #clock MOD &190 

116Ø LDY #clock DIV &1ØØ 

117Ø LDA #7:JSR OSWORD:LDA T+4 
118Ø EOR #&70:STA T+4:DEC T+5 

1198 BNE snl:RTS 

1200 Vikkkkkkkkkkk Set Timer 

121Ø .settimer:ASL A:BCC til:ASL A 
122Ø BCC ti2:LDA #&90:LDX #&E8 
1230 BRA callset 

1249 .ti2 LDA #&18:LDX #&FC:BRA callset 
1250 .til LDA #&9C:LDX #&FF 

1268 .callset 

1276 STA clock:STX clock+1:LDA #&FF 
1280 STA clock+2:STA clock+3 

1298 STA clock+4 

1388 LDX #clock AND &FF 

1318 LDY #clock DIV &1ØØ 

1320 LDA #4:JSR OSWORD:RTS 

1330 Viten Change Flags 

1346 .flagchange:LDA #161 

135Ø LDX #43:JSR OSBYTE:TYA:LDX chr 
1368 BNE flagl:AND #&3F:BRA flag2 

1378 .flagl:ORA chr 

1380 .flag2:TAY:LDX #43:LDA #162 

1398 JSR OSBYTE: RTS 

1400 N #¥*kREKKEKEK Save Zero Page 

1418 .pushzp:LDX H&FF:.pzpl INX:LDA chr 
rX:STA &1ØØ,X:CPX #&D:BNE pzpl:RTS 

142Ø .pullzp LDX f&FF:.pzp2 INX:LDA &1Ø 
Ø,X:STA chr,X:CPX #&D:BNE pzp2:RTS 

1430 VWw*kkkkkkkkkk Command Interpreter 
1448 .command: PHA: PHX: PHY 

1458 LDA (caddr) ,Y:CMP #ASC ("A") 

1468 BNE comml:INY:INY:LDA (caddr) ,Y 
1478 CMP #&D:BNE comm] :DEY 

1480 LDA (caddr) ,Y:CMP #ASC("1") 

1490 BEQ install:CMP #ASC ("Ø") 

1588 BEQ remove: .comml :JMP end 

1510 \**žkkkkkkkkkk Install Alarm 

15286 .install 

153Ø JSR pushzp:LDA $&8Ø:STA chr 

1546 JSR flagchange:JSR setvector 

1558 LDA #14:LDX #5:JSR OSBYTE 

1568 LDA #0:JSR settimer 

1578 JSR pullzp:JMP enda 

15809 V*tkkkkkkkkkt Remove Alarm 

1598 .remove 

16ØØ JSR pushzp:STZ chr:JSR flagchange 
1610 LDA #13:LDX #5:JSR OSBYTE 

1628 JSR pullzp:JMP endA 

1630 ]:NEXT 

1648 PRINT"f£8 to save" 

1658 PRINT"f9 to reload" 

1668 *K.8 OS. ("S.romcode "+STRSTR%+" "+ 
STRS~O%+" Ø FFFF8ØØØ") |M 
167Ø *K.9 *SRLOAD romcode 8ØØØ 4|M 
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1Ø REM Program Alarm Control System 
2Ø REM Version B Ø.4L 
3Ø REM Author David Graham 
4Ø REM Beebug March 1987 
5Ø REM Program subject to copyright 
60 : 
1ØØ DIM alarm(5) :ans=:03=2 
11Ø REPEAT 
128 ON ERROR GOTO 158Ø 
138 MODE7:VDU23,1 | 
146 PROCinit 
150 REPEAT 
16Ø PROCclock 
17@ PROCread 
188 key=INKEY (Ø) 
198 UNTIL key>66 AND key<7Ø 
200 *FX15,1 
210 ON ERROR IF ERR=17 THEN GOTO 119 F 
LSE GOTO 1588 
220 SOUND2,-15,1Ø,2 
230 IF key=67 PROCinput: PROCreset 
240 IF key=68 OSCLI ("AØ") 
250 IF key=69 OSCLI ("Al") 
268 UNTIL FALSE 
270 : 
1000 DEFPROCclock 
1018 pad2$=MIDS(TIMES,5,1):IF pad25="Ø" 
pad2$= "ou 
1020 clockdispS=LEFTS (TIMES$,3)+" "+oad2 
S+MIDS (TIMES,6,1Ø)+" "+RIGHTS (TIMES,8) 
1038 FOR A=1 TO 2 
1040 PRINTTAB (9,A+6) clockdisp$ 
1850 NEXT: ENDPROC 
1068 : 
1078 DEFPROCread: PROCreadout 
1080 IF alarm(5)<1Ø pad$="Ø" ELSE pad$= 
wee 
1090 FOR A=1 TO 2 
1100 PRINTTAB (13,A+19) ,alarm(3)" "alarm 
(2) 
1110 PRINTTAB(2Ø,A+1Ø) "19";alarm(1);" " 
,alarm(4); ":";padS;alarm(5) 
1120 NEXT 
113Ø PRINTTAB(14,15);:IF bit] PRINT"ACT 
IVE";SPC2 ELSE PRINT" INACTIVE" 
1140 PRINTTAB (25,15);:IF bitl+bit2=192 
PRINTCHRS136; "RINGING" ELSE PRINTSPC8 
115@ ENDPROC 
1160 : 
1170 DEFPROCreadout 
1180 FORA=1 TO 4 
1190 Z=FNreadc(A+39) 
1200 IF A=] alarm(1)=(Z DIV 16)+85:2=2 
MOD 16 
1210 IF A=4 bitl=Z AND 128:bit2=Z AND 6 
4:Z=Z AND &3F 
1220 alarm(A+1)=Z 
1238 NEXT: ENDPROC 
1240 : 
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1258 DEFFNreadc (X%) :A3=161 : = (USR (&FFF4) 
AND&FFØØØØ) DIV & 1 ØØØØ 

126Ø : 

1270 DEFPROC input 

128Ø VDU23,1,1 |:RESTORE 

129Ø FOR A=1 TO 5 

13ØØ READ AS,L1,L2 

131Ø REPEAT 

132Ø BS="":IF alarm(A)<1Ø B$="Ø" 

133Ø PRINTTAB (5,16+A)AS;BS;alarm(A); 

1348 VDU8,8 

1358 INPUT""ans$:ans=VAL (ans$) 

136Ø UNTIL ans$="" OR (ans>L1 AND ans<L 


137Ø IF ans$<>"" THEN alarm(A)=ans 
138Ø NEXT: ENDPROC 


1390 : 

1400 DATA"Year ? 19",84,1ØØ, "Mo 
nth (1-12) ? ",@,13,"Date (1-31) ? 

" 0,32 


1418 DATA"Hours (0-23) ? 
utes (8-59) ? ",-1,60 
1420 : 

1430 DEFPROCinit 

14480 FOR A=1 TO 2 

1453 PRINTTAB (8, 1+A)CHRS134CHRS1 41 "MAST 
ER ALARM SYSTEM" N 

146Ø NEXT 

147Ø FOR A=1 TO 2 

1489 PRINTTAB (0,6+A)CHRS134CHRS$1 41 "TIME 
:";CHRS131 

1498 NEXT 

1500 FOR A=1 TO 2 

1518 PRINTTAB (Ø,1Ø+A)CHRS134CHRS141 "ALA 
RM: ";CHRS1 31 

1520 NEXT 

1536 PRINTTAB (1,14)CHRS134"Alarm" 

1548 PRINTTAB (1,15)CHRS$134"Status: ";CHR 
$131 

1558 PRINTTAB (@,23)CHRS$131"C"CHRS134"Ch 
ange Alarm"SPC2CHRS1 31 "E/D"CHRS$134"Enabl 
e/Disable" 

1569 ENDPROC 

1576 : 

1580 @%=1Ø:MODE7: REPORT 

1596 PRINT" at line ";ERL:END 

1600 : 

1610 DEFPROCreset 

1620 PROCwrite((alarm(1)-85) *16+alarm(2 
),4Ø) i 

1638 PROCwrite(alarm(3),41) 

164Ø PROCwrite(alarm(4) ,42) 

1658 PROCwrite(alarm(5) ,43) :OSCLI ("Al") 
1669 ENDPROC 

1670 : 

1688 DEFPROCwrite(n,X) 

1698 OSCLI ("FX162,"+STRS (X)+","+STRS (n) 
) 

1788 ENDPROC 


",=1,24,"Min 


the ADFS directory 
structure can be a bit 
tedious at times. Here 
are some hints to speed 


things up a little. 


MASTER 
SERIES 


Master Hints | Don't Nest Too Deep 


This one is pretty 
obvious. The deeper you 
nest, the longer it will 

take you to specify a route from any 


directory to any other. For many purposes, 
you will find that one level of nesting is 
enough. This gives you up to 47 possible 
directories as immediate sub-directories 
of the root directory. 


Use Wild Cards 


When specifying a route 
file, or when specifying a pathname for 
*DIR or *CDIR, enormous savings can be 
made by the use of wildcards. For example: 


to a given 


*DIR $ .JANWORK . SPREADSHEFT .MAINFILES 
could be reduced to: 
*DIR $.J*.S*.M* 


But beware. If the directory name 
specification is not unique, the ADFS will 
take the very first match in ASCII order. 
So if your disc also contained the 
directory $.J1, the ADFS would select the 
wrong route. To avoid this confusion, you 
could use: 


*DIR $.JA*.S*.M* 


To increase the effectiveness of wildcards 
on the ADFS it is worth making all 
directory names differ from each other as 
early as possible in the word. 


Using Function Keys 


One of the fastest ways to move around 
an ADFS disc is by using the function 
keys. The key definitions can be stored in 
an EXEC file, and with a little care, can 
be made to operate just as well from 
within Wordwise, View or Viewsheet as from 
immediate mode Basic. For example: 
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*KEYØ *CAT|M 

*KEY] *DIR :9.$.FIRST|M 

*KEY2 *DIR :0.$.SECOND|M 

Here, key fø is used to 
the currently selected 

and the remainder of the keys 

to move to various specified 

jirectories. You may also find it useful 

to have each key actually catalogue the 

lirectory which it selects, as follows: 
*KEYT *DIR :Ø.$.FIRST|M*.|M 


and so on. 
catalogue 
directory, 
are used 


This method ensures that the key may still 
be used from within Wordwise and the View 
family, and even the Editor, provided that 
you are in Command Line mode and have 
enabled the function keys with *FX228,1. 


Function Key Doubling 


If you wish to access many different 
directory names from the function keys, 


you will soon run out of room at around 
19. But by a bit of subtlety you can 
double up on their effect. The following 


definition illustrates the principle: 


*KEYØ IF INKFY(-97) OS. ("DIR S.FIRST") 
ELSE OS. ("DIR $.SECOND") |M 


The effect of this is that if you press fø 
on its own you will be taken to $.FIRST, 
nut if you press Tab-fØ (in the same way 
that you might press Shift-fØ) you will be 
taken to  S$.SFCOND. This immediately 
doubles the capacity of the function keys, 


and helps cavitalise on the increased 
function key buffer allocation on the 
Master and Compact. Next month we will 


take this idea one stage further. 


Extra Key Strips 


One of the snags of using the function 
keys is that you need to keep changing the 
keystrips. The layout of the Master allows 
a new type of keystrip to be used in 
addition to the normal variety. You will 
find that a second keystrip can be fitted 


between the top of the function keys and 
the base of the perspex key strip 
retainer. It must of course be narrower 
than the normal strip, but may 


nevertheless hold the legends for up to 
twenty keys. If you make the strip from 
thin card, and give it a flange which 
drops down to the left of fØ and to the 
right of £9, it will remain in place 
without the necessity of fixing. 
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Filer Database 
System 


The Last Word 


Mike Williams describes some 
further enhancements and improve- 
ments to our popular Filer series of 
programs, and it's all available on 
one disc too! 


This month, we bring to a close (for 
the time being at least) the various 
articles and programs forming the BEEBUG 
Filer Database Management System. This 
series, which commenced in November 1985 
(BEEBUG Vol.4 No.6) has proved very 
popular, and many and varied are the 
applications to which readers have put the 
various programs. Now that we can afford 
to look back, there are a number of minor 
improvements that can be made, together 
with suggestions or other information to 
help you make the most of these programs. 


It is impossible to include all the 
Filer programs on the monthly magazine 
cassette/disc, so we are providing a 


separate Filer disc (sorry - no cassette). 
This contains all the Filer »rograms, 
updated and revised as described here. The 
disc also contains a front-end menu to the 
Filer programs, and the individual 
programs are tailored to work with this. 


The programs are supplied complete 
with a 'Heln' system so that all commands 
can be rapidly described on-screen for 
quick reference. As space is at a premium 
in the programs, a number of revisions 
have been incorporated. The versions on 
the disc are therefore not identical to 
the original versions, but all line 
number ing, variable, function and 
procedure names have all been kept as 
close as possible to the originals, and 
all amendments and additions listed here 
can be made to your existing programs 
without further ado. 


The Filer disc is accompanied by a 
revised and expanded version of the Filer 
Notes available previously. These now 
cover all the programs in the Filer 
Database Management system. The whole is 
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available now at £5.58 plus 
direct from BEEBUG (see supplement). 
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FILER - THE DATABASE PROGRAM 
(Vol.4 No.6, 7, 8, updates Vol.5 No.1, 2) 
Space is already at a premium with 
this program. You can make more space 
available by omitting the sort routine, 
now that a separate sort program is 
available, or any other option you do not 
need (mail-merge for example). If you do 
delete any command, make sure that the 
number of commands is changed (at line 
1168), and that the test values from line 
1638 for a continuous sequence. 


Alternatively, compressing and com- 
pacting the program, maybe by using suit- 
able commands in Toolkit or similar, will 
also help to make more space available. 
When adding any new feature, do check to 
make sure it is operating correctly before 
moving on to any further additions. In 
this way you should be able to locate 
quickly any typing errors you may make. 


Some people have found it inconvenient 
that the ADD command allows only one 
record at a time to be added to a file. 
These two additional lines allow as many 
records as you like to be entered follow- 
ing one ADD command. Terminate record 
entry by pressing Escape. 

8090 REPEAT 
8230 UNTIL flag>Ø 


Another inconvenience is that the 
DISPLAY and PRINT commands allow either 
one or all records to be specified. The 
following additions allow any continuous 
range of records to be selected with these 
commands in the form: 

DISPLAY n1,n2 

PRINT nl ,n2 
where nl is the first record and n2 is the 
last record to be displayed or printed. 
You can still use the SELECT command to 
select records from within a range. 


4826 LOCAL G,I,n1,n2,flag2 

4876 nl=1:n2=rec-1:IF flag<2 flag2=FNli 
mits (p$) ELSE F1=OPENUP (p$) :IF F1=@ PRIN 
T"No such text": ENDPROC 

4880 IF NOT flag2 PRINT"No such record 
(s) ": ENDPROC 

494Ø FOR I=n] TO n2 

498Ø IF I<n2 AND flag<>1 THEN G=GET 


218ØØ DEF FNlimits (p$) 
21848 IF p$="" =TRUE 


FILER COMMANDS 


GENERAL 
List valid commands 
Open data file for use 
Close data file 
End execution (return to menu) 


FILER DATABASE 
Create data file or format file 
Add new records to file 
Delete records from file 
Display records in file 
Extend length of data file 
Load print format 
Specify marker for mail-merge 
Merge records with standard text 
Print formatted records 
Change a field name 
Select specified records 
Display details of file 
Sort file 
Update records in file 


FILER GRAPHICS 
Load a graph format 
Display a graph 
Print displayed graph 
Specify title for display 


FILER ACCOUNTS 
Give latest balance 
Carry forward to new file 
Specify date for statement 
STATEMENT Prepare statement of account 
TITLE Specify title for statement 


21869 I=INSTR(p$,","):IF I=0 nl=VAL (p$) 

tn2=nl ELSE nl=VAL (LEFTS (p$,I-1) ) :n2=VAL 
MIDS (p$,I+1)) 

1880 IF nl>@ AND n2>Ø AND nl<rec AND n 

<rec =TRUE ELSE =FALSE 

1900 : 


NON NA 


One feature of Filer that has caused 
many enquiries is the use of ‘'format' 
files. A format file is a special one- 
record file that describes how the main 
data records are to be printed. It is 
essential when using format files (and the 
same is true with graph formats) that the 
names of data fields are precisely the 
same as defined for the data file, and as 
used in the format description. The 
following additions provide a new command 
RENAME that allows the name of a data 
field to be changed. This provides a way 
of changing the name of a field without 
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having to delete the entire file and 
retype all the data. 


Add RENAME at the end of the list of 
commands (line 1178) and increase the 
value at line 11ØØ by one. Then add the 
following lines (assuming this is the 17th 
command) and delete line 21649: 


179Ø IF C=17 PROCrename (pm$) 


11966 DEF PROCrename (p$) 

11628 LOCAL p,p1$ 

11048 IF NOT open% PRINT"No file open":E 
NDPROC 

11868 pS=p$+",":p=INSTR (p$,",") 

11080 pl$=LEFTS (p$,p-1) : pS=MIDS (p$,p+1) 
11186 p=INSTR(p$,",") :pl=FNfieldl(p1$) 
11129 IF p*pl=Ø PRINT"Invalid fields":EN 
DPROC 

1113Ø field$ (pl )=LEFTS (p$,n-1) 

11160 PTR#F=5+19*p1: PRINTH#F, LEFTS (field$ 
(p1)+STRINGS (12,".") ,12) 

1118Ø ENDPROC 

11200 : 


21600 DEF FNfield(p$,R) 

21620 IF FNfieldl (0$)>9 =recordS (FNfield 
1(p$),R) ELSE ="" 

21660 : 

21766 DEF FNfieldl (p$):LOCAL I:I=Ø 

21720 REPFAT:I=I+1:UNTIL p$=fieldS(I) OR 
I=f 

21740 IF I=f AND nS<>fieldS(I) =Ø ELSE = 
I 

21768 : 


The format of the new command is: 
RENAME <fieldl>,<field2> 

where field] is the existing name, and 
field2 is the new name. It is not 
feasible, without considerable reorganisa- 
tion, to allow either field widths or the 
number of fields to be changed after a 
file has been defined, 


Another useful 
added is: 

SHOW <filename> 
This will display the current 
cription for reference. Add the new com 
mand to the end of the command list, and 
increase the number of commands by one, as 
before. Then add the following lines: 


command that may be 


file des- 


1880 IF C=18 PROCshow(pm$) 
11406 DEF PROCshow(p$):LOCAL I 


11468 IF open’ IF F$<>p$ PROCopen(p$) EL 
SE IF NOT oven’ PROCopen (p$) 
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1147Ø IF NOT open% ENDPROC 

11475 PROCwindowl:VDU28,9,19,79,4,12,14 

115ØØ PRINTTAB (5,2) "Length of file (reco 
rds) : ";recn 

11520 PRINTTAR (45,2) "Number of fields:"; 
f 


11530 PRINTTAB (5,4) "Fielda"TAB (11) "Fieldn 
ame"TAB (3Ø) "Fieldwidth" 

11548 FOR I=] TO f 

11568 PRINTTAB(5,5+I) "Field"; STRS$ (I) "2"; 
11580 PRINTTAB (16,5+1) fields (I) TAB (3Ø,5+ 
I) widths (I) 

11608 NEXT I:VDU15 

11630 PROCwindow2:PRINT "Press any key to 
continue": I =GET : PROCheader 

1164Ø ENDPROC 

11669 : 


Thus SHOW will display the current 
field names (and field lengths) of a given 
file; RENAME can then be used to change 
one or more field names, and SHOW used to 
verify the change. 


FILER - THE GRAPHICS PROGRAM 
(Vol.5 No.2) 

This program which runs in mode Ø has 
no space left for any additions. However, 
the program is already quite complete. 
Three lines in the original listing 
(copied from Filer) should be corrected as 
shown so that the screen display is 
correct for mode Ø: 


1368 PRINTTAB (4,27) STRINGS (88,"_") 
20426 VDU28,9,26,79,3:w=1 :ENDPROC 
20440 DEF PROCwindow2:VDU28,9,31,79,28 


FILER - THE ACCOUNTS PROGRAM 
(Vol.5 Nos.4 & 5) 

This addition to the FILER series has 
provoked considerable interest and several 
queries. One essential point is that all 
the entries in the main data file should 
be in date order. Use the SORT command in 
Filer, or the separate sort program, to 
re-order the file if necessary, otherwise 
unexpected results may occur. 


An understanding of how the Accounts 
program handles the 'balance' will also 
help you to get more from the program. 
Whenever a statement (or balance) is 
called for, the program calculates the 
balance corresponding to each record up to 
the last within the period specified. The 
last balance calculated, the date and 
reference of the corresponding record are 
stored in the payments file. When new 
records are added and an updated balance 
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requested, calculation is only performed 
from the date of the last balance. 


Should you have cause to edit or re- 
order any previous records, the program 
will be unaware of this, and a wrong 
balance will now be used for further 
calculations, giving incorrect results. 
The problem can be overcome by requesting 
a statement for a short veriod terminating 
earlier than any of the records that have 
been changed or re-ordered, and then 
requesting a new statement from that date. 
in this way the Accounts program can be 
forced to re-calculate balances as needed. 


The program also contains a code 
number (123 at line 3480). Temporarily 
changing this to any other value will 
cause a re-initialisation of the payments 
file to take place. No information is 
lost, but ALL balances will subsequently 
be re-calculated. 


The only real problem that has arisen 
with the Accounts program is with regard 
to accuracy; though this is obviously 
crucial. In the program all money sums are 
multiplied by 198 to avoid any errors that 
may arise through treating pence as a 
fraction of a pound. Although the arith- 
metic does work correctly, the subsequent 
string conversion to prepare the statement 
entries still occasionally falls foul of 
rounding errors. The following changes 
will cure this problem by a stricter use 
of integer variables and modified string 
conversion routine. 


3529 PTR#F1=FDR-25: INPUTHFI ,recb,p1$,02 
$:db=VAL (p1$) :balance%=FNint (VAL (p2$) ) 

4960 PRINT"Balance at ";STRS(db);" is £ 
"+STRS (balance% DIV 1Ø0);".";RIGHTS (STRS 
(balance%) ,2) 

469Ø IF r>recb balance%=balance%-FNint( 
FNval (amnt) ) : P$=STR$ (balance% DIV 1ØØ)+" 
."+RIGHTS (STRS (balance%) ,2) : record$ (bal, 
Ø) =p$+STRINGS (width? (bal) -LEN (p$) ,"."):P 
ROCwrite(r,F,Ø) ELSE balance%=FNint (FNva 
1 (bal) ) 

4769 recb=r-1:db=FNval (date) : balance%=F 
Nint (FNval (bal) ) : PROCwindow2: ENDPROC 

7820 PROCread (nay (pay,!) ,F1,1):balances 
=balance3-FNint (VAL (record$ (2,1))) 

7840 IF p2% PROCprintline(STR$ (pay (pay, 
Ø)) ,recordS (1,1) ,"_* ",FNstrip(record$ (2 
71),".") ,STRS (balance DIV1ØØ)+"."+RIGHT 
$ (STRS (balance%) ,2) ) 
219ØØ DEF FNint (p)=INT (19Ø*p+Ø.1) 

21920 : 
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Recursion can result in some very concise programming when 
used properly. Surac shows how to make good use of this 


technique. 


Recursion is a com 
puting technique with 
something of a black 
magic image. However, 
there are a number of 
jobs that it's actually 
very useful for, as 
you'll see. 


WHAT IS RECURSION? 
Recursion is a pro- 
gramming technique in 
which a portion of code 
(e.g. a procedure or a 
function) performs a task 
by successively calling 
itself until some 
terminating condition is 
reached. Each time that 
the routine is entered, 
it solves part of the 
problem; it then checks 
to see whether it has 
finished. If it has more 


to do, it calls itself 
again; otherwise, it 
exits. When a call to a 
routine finally does 
exit, the whole nested 
chain unravels and the 


job is done. 


Let's look at an 
example - see Procedure 
15 This is a dumy 
program to handle a 


common job, but don't trv 
running it! I hope that 
it's easy to see how it 
works; it makes you keep 
bitina the wretched 
thing, each time with a 
new call, until it is 
finished, and then all 
the ENDPROCs are executed 
and the chain unravels. 


That example also 
shows one of the reasons 
why recursion is not used 
a lot - there are very 
few cases where it is the 
only way of solving a 
problem. Almost always, 
the job can be done by a 
loop of some sort - see 


Procedure 2. This is easier to understand 
than the recursive version, and would 
probably run faster into the bargain. 


Procedure 1 
DEF PROCEatButty 
BITE Sandwich 
IF (Sandwich NOT Finished) 
THEN PROCEat3utty 
ENDPROC 


Procedure 2 
DEF PROCEatButty 
REPEAT 
BITE Sandwich 
UNTIL Sandwich Finished 
ENDPROC 


Why bother at all, then? Programming 
languages should allow you to create 
programs which do the job YOU want to do 
in the way that YOU think of it but, as 
we'll see, some problems naturally lead to 
a recursive solution. Although they could 
be solved by loops, that is not the way we 
think of them. 


WHAT DO YOU NEED FOR RECURSION? 
Some computer languages (e.g. Logo 


and, to a lesser extent, Forth) almost 
insist that you use recursion. Others make 
it virtually impossible. BBC Basic makes 
it easy but optional. 


The most important requirement is 
that, because the same code is used 
repeatedly, each variable name is going to 
be in use several times at once. It is 
therefore ESSENTIAL that the language can 
keep the values separate. BBC Basic's 
LOCAL variables, and procedure and 
function parameters, make this possible. 


A factorial function (e.g. factorial 6 
=6*5*4*3*2*1=72Ø) can provide a simple 
example of a recursive routine. Fach time 
that FNFact calls itself, it effectively 
creates new copies of "n" and "temp", 
while safely preserving all earlier 
versions. 


DEF FNFact (n) 
LOCAL temp 


IF n=] THEN temp=1 
ELSE temp=temp*FNFact (n-1 ) 
=temo 
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Of course, that routine could easily 
have been handled by a loop, as below. 
What's more, the loop runs noticeably 
faster than the recursion, as you'll see 
if you try using them. 


DEF FNFacta (n) 
LOCAL 1%,temp 
temp=| 


FOR I%=1 TO n 
temp=temp*I% 
NEXT 

=temp 


MORE PRACTICAL RECURSION 

Although recursion is rarely 
essential, there are times where it mimics 
the way that (some) people approach a 
problem. A good example is a binary search 
of a file for a given value. 


A binary search (or "chop") starts 
with a list of items in order (e.g. an 
alphabetical list of names). To find any 
specific value, it divides the list in 
two, picks the middle value and compares 
it with the value it's looking for. If the 
middle value is too low, it takes the top 
half of the lists if dts too high it 
takes the lower half. It then splits that 
half into halves and checks the middle 
value... That's recursion - keep splitting 
the list in half and looking at the 
mid-value until you're done. 


A good example is searching a 
telephone directory. (All right, if you're 
looking for Mr Zygote, you probably 
wouldn't start in the middle, but you're a 
human). A conventional routine to do this 
job was given in the Workshop in the June 
1985 issue of Beebug (Vol.4 No.2). 


Based on the routine in that issue, 
here is a recursive function to search the 
array "data()", between indices "first%" 
and "last%", for the value "match". It 
returns either the index of the location 
holding "match" or, if it cannot find it, 
the value -l as an error indicator. 


Let's look at this in more detail. 
Firstly, note that ALL the variables which 
the function uses are LOCAL, either 
because they are in the parameter list or 
because they are explicitly so defined. 
That's essential, because the values of 
the variables must be preserved through 
all the nested recursive calls. 
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Recursive Search Function 
1ØØØØ DEF FNchop(first%,last%,match) 
1ØØ1Ø LOCAL done%,mid%,temp 
10020 mid%=(first%+last%)DIV 2 
19038 temp=data (mid%) 
18848 done%= (temp=match) 
OR ((last%-first%) <2) 
1ØØ5Ø IF temp>match AND NOT done% 
THEN mid%= 
FNchop (first% ,mid% ,match) 
ELSE IF temp<match AND NOT done% 
THEN mid%= 
FNchop (mid%, last’ ,match) 
10060 IF mid%=(last%-1) 
THEN IF (match<>data (mid) ) 
THEN mid%=last% 
10070 IF mid%>=0 
THEN IF (match<>data (mid%) ) 
THEN mid%=-1 


=mid% 


Lines 


10020-10040 simply find the 
middle value and check to see if it's the 
one we were looking for. Line 19050 is the 
most important line - if no match has been 


found, it calls FNchop() with revised 
upper and lower values to force a search 
of the correct half of the block it was 
looking at. Once the value is found, or 
the whole block of data originally sent to 
the function has been checked fruitlessly, 
all the nested calls unwind through lines 
18069-10080. 


The halving function at line 10020 can 
never actually get to the last point in 
the array; if the search fails, line 10060 
checks the last cell (Mr Zygote?) just in 
case. Line 19078 sets the error signal if 
the search fails and, finally, line 10080 
sends the index of the searched-for item 
back to the program which originally 
called the function. 


If all that is a bit complicated and 
your mind is still boggling gently, try 
tracing the way through the routine on a 
sheet of paper. Better still, type the 
function into your Beeb and experiment 
with it. Don't forget to set up "data()" 
first. 


LIMITS ON RECURSION 

A limitation on recursion is that it 
can take up a lot of memory. Each 
recursive call saves all the values so far 
and, if the nesting goes too far, memory 
eventually fills up and the program 
crashes. Try the following program: 
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:MAXIMISING: 
YOUR MOUSE 


MAX is the latest software product 
from AMS. Is this another must for 
every mouse enthusiast? Simon 
Williams has his doubts. 


Product: AMX MAX Desktop 

Supplier: Advanced Memory Systems Ltd. 
166-170 Wilderspool Causeway, 
Warrington WA4 6QA 
Tel. (0925) 413501 

: £19.95 for 16k ROM, manual 
and key strip. (Includes 
VAT and p&p). 


Price 


Even really dedicated BBC Micro and 
Master owners have been seen to look 
enviously at the Apple Macintosh or IBM PC 
runing GEM or Windows. All these 
environments set out to make their host 
micros more 'friendly' and easy to use, 
via mouse and icon-driven screens. Anyone 
who has 'clicked' away with a Mac or PC 
will know that they go a long way to 
achieving this aim. 


There have been several attempts to do 
the same thing for the BBC Micro, but most 
have been defeated by a shortage of 
memory. The latest in this line is MAX, a 
handy anagram for its producer, AMX. This 
is a ‘front-end on a chip', providing an 
easy-to-use icon-driven general system 
manager. MAX allows you to view the 
contents of discs and ROMs, and to move, 
delete, copy or run files without ever 
having to touch a key. You can operate MAX 
with an AMX mouse or Marconi trackerball, 
but simple keystrokes will also work for 
the less wealthy. 


MAX fits in any vacant ROM socket in a 
BBC B, B+, Master or Compact. Fitting is 
straightforward and well described in the 
usual high-quality AMX manual. The ROM is 
called up by typing *MAX, or with f8-Break 
on a BBC with a DFS, and with f9-Break on 
a BBC with ADFS, on a Master or Compact. 
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3 File 


OPENING A WINDOW 

The MAX screen is initially blank, 
except for a menu bar across the top, and 
a set of icons down the right-hand side. A 


setup window opens almost immediately, 
though, and you can proceed no further 
until you've clicked your mouse on the 


"continue' box. Before you do this though, 
you may select background and foreground 
colours by dragging two 'sliders' within a 


window. You can also tell MAX the number 
of drives you have connected to your 
micro, and change the disc filing system, 


the screen mode and keyboard repeat rate. 
On a Master, the time is read from the 
internal clock and is also disolayed 
within the window. You can call the setup 
window at any time, but unfortunately 
there's no way of saving your preferred 
configuration, 


The control icons down the right of 
the screen are divided into three groups. 
The top group controls the available 
drives, and clicking on any of the numbers 
Ø to 5 will display a directory window for 
that drive. The second group controls the 
windows themselves and allows you to 
expand the selected window to full screen, 
turn it off, or bring overlapping windows 
from behind. Some of these facilities are 
duplicated within the windows themselves, 
and in use you are likely to stick to 
those alone. The bottom group of icons 
call up the ROM display, setup window and 
star command option. At the bottom right 
of the screen is a dustbin icon which can 
be used for deleting files. 
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When you call up a directory window, 
it opens to the full size of the screen if 
there is no other window displayed. If 
there are other windows on the screen, the 
new one opens as a small square which may 
then be moved around the screen or 
stretched to a different size. 


FILE HANDLING 

MAX recognises eight different types 
of file. Files listed in a directory 
window are normally displayed with a 
corresponding icon. Some icons are 
obvious, like the sheet of paper for text 
files, though others are less so. Files 
can be sorted alphabetically or by type. 
You can also scroll the file icons through 
the window by clicking on the double 
arrows in the opposite corners of its 
frame. 


select a file by clicking on 
and double-clicking executes 
of file. Interestingly, a 
word 
Surely 
should 


You can 
its icon, 
certain types 
text file invokes View as its 
processor when you execute it. 
Wordwise (or even Interword) users 
equally be catered for! 


# File Diso Rom 


Ø GENERAL HORK 


$ 
ALT8Ø23 


MICE prefix 


“Sideways Ro 
E Å Ramamp Video 2.1 


MAX doesn't act as a 'shell' for your 
own (or other) programs in the truest 
sense, as when you run a program you 
forsake the WIMP environment, and leaving 
that program takes you back to Basic, not 
MAX. This is not unreasonable, given that 
there is nowhere sensible to store the 
pointers which would recall it. What is 
poor, though, is that when you copy a file 
within MAX, the program drops through to 
mode 7 and then re-enters MAX at the setup 
window. You have to reset your options and 
re-open your directory windows before you 
can copy the next file. Since there is 
also no Mac or GEM style facility to mark 
a group of files for copying, it does make 
the whole process quite long-winded. 


The menu bar at the top of the screen 
offers four pull-down menus, labelled 
Mouse, File, Disc and Rom. The Mouse menu 
offers details of MAX itself, and other 
routes to the setup window and star 
command function. The File menu allows you 
to run, delete, rename or lock a selected 
file, and the Disc menu offers the two 
directory sorting options. Both File and 
Disc menus also offer an ‘infg' option, 
which provides length and loading 
addresses for files, and name and drive 
numbers for discs. The disc information is 
duplicated in the window itself. 


The overall impression is that the 
memory limitations of the BBC Micro are 
still hampering the implementation of a 
workable WIMP front-end. MAX does quite 
well, but seems to work on the basis that 
providing the same facilities in several 
guises is a replacement for fitting more 
genuinely useful features in the first 
place. The inability of the package to 
hold a pre-set configuration, group files 
or remain installed after a simple file 
copy don't endear it to the busy user. 
Although competitively priced, MAX doesn't 
leave enough headroom to be ee 
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MODE 1 

N3=1 

PROCCrash 

END 

DEF PROCCrash 

LOCAL A,B,C,D,E,F,G,H,1,J,K,L 
PRINT "Iteration No: ";N% 
NS=NS+1 

PROCCrash 


On my 


computer it crashes after 46 
iterations with a "No Room" message. 


In summary, recursion is a bit 
convoluted, but it's sometimes a very 
useful trick to have up your programming 
sleeve. You must be careful to protect all 
your variables properly, and it can use a 
lot of memory but, for all that, it has 
its place and is not just a curiosity. 
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WATFORD DRIVES 
VIEW 


Acorn’s View has long been one of the 
most popular word processors for the 
Beeb. Now Watford Electronics lends its 
own support with this printer driver 
package. Mike Williams assesses the 
results. 


Product: View Printer Driver ROM 
Supplier: Watford Electronics 
essa House, 
50 High Street, 
Watford WD1 2AN. 
Tel. (0923) 37774 


Price : £38.95 inc VAT and p&p 


Unlike Wordwise and Wordwise Plus, 
where control codes can be embedded 
anywhere throughout the text, View only 
allows full control of your printer via 
the use of a so-called 'printer driver". 
This allows up to two 'highlight' markers 
to be translated into Escape sequences 
appropriate to your printer. By default, 
the two highlights produce underlined and 
emphasized text. The advantages of this 
approach are that the text itself can be 
largely formatted on the screen as it is 
entered and edited, and that a text file 
can be easily printed on different 
printers simply by the use of different 
printer drivers. 


Acorn supply a printer driver gen- 
erator, and now Watford have released an 
enhanced View printer driver on ROM. This 
includes printer drivers for 15 different 
printers (see list) which, by virtue of 


Printers supported by Watford 


Epson MX89/100, RX8Ø/1ØØ, FX8Ø/1ØØ, 
FX85/1Ø5, LX8Ø, JX8Ø, HISØ, 
NLQ ROM (Watford) 

Kaga Taxan KP81Ø/91Ø 

Canon PW1Ø8Ø/118Ø 

Acorn/Olivetti JP1Ø1 

Brother HR15/M1ØØ9 

Centronics GLP 

Juki 6108 

Ricoh Flowriter 1600 

Facit 8105 
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being in ROM, are always instantly avail- 
able. Any printer driver can be loaded 
using the command *PRINTER <name> which 
effectively duplicates View's own in-built 
PRINTER command. The two highlight markers 
can then be used as described, while the 
View command HT can be used to change the 
actions of either of the two markers. 


One of the normal limitations with View 
printer drivers is that no more than two 
highlights can be operative at any one 
time, and yet the functions of the high- 
light markers can only be changed between 
lines. Watford provides greater flexibili- 
ty by the use of ‘extended highlights'. 
After "HT 2 13Ø' has been entered into the 
text file, the two highlights can be used 
together in various combinations to 
provide many more options, for example: 


- Toggle underlined printing 
Toggle bold printing 
Start subscript mode 


** Start superscript mode 

**- Cancel both subscript and superscript 
*-— Toggle alternate font 

*-* Toggle italic printing 

All extended highlights can be switched on 
and off as required at any point within 
the text. 


Watford has also introduced a system of 
mnemonics to make recall of the 
appropriate command easier. After entering 
‘HT 2 16Ø', the following easily recog- 
niseable commands can be used in place of 
the highlight markers alone, for example: 


*NLQ* Toggle NLQ/draft printing mode 
*UL* Toggle underlined printing 
*BOLD* Toggle bold printing 

*IT* Toggle italic printing 

*WAIT* Wait for key press 

*PAD* Define pad character 

*FONT* Select new printing font 


These, and several more, are much easier 
to remember than the usual highlights and 
HT command. 


A 'pseudo' printer driver called SCREEN 
is also provided. With this loaded, text 
is 'printed' on the screen, and within the 
limitations of the graphics mode selected 
(modes 1 or 4 are recommended) the text 
will be displayed with all highlights 
correctly shown (e.g. underline, super- 
script, subscript etc). 
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Although all these features are very 
laudable, there is one major disadvantage. 
Not only do all the extra forms of high- 
lighting distort the otherwise formatted 
display in edit mode, but because View 
treats many of Watford's innovations as 
pure text, the resulting printout will 
often end up incorrectly formatted. I 
found the best approach was to finish 
editing and formatting before adding any 
extended highlights, but much fiddling 
around, with frequent previews (a la 
Wordwise) will often be necessary to get 
things right. 


Finally, if your printer is not in the 
list catered for by Watford's ROM, this 
versatile piece of software allows you to 
create your own version. Printer drivers 
created in this way cannot, of course, be 
saved in the EPROM, and must be saved to 
disc or tape, thereby losing some of the 
convenience of Watford's ROM approach. 
Furthermore, the Watford ROM must still be 
installed in your machine when you reload 
a printer driver that you have created. 


A simple menu screen can be called up 
to create your own printer driver. Often, 
this can be achieved most easily by taking 
one of the built in drivers as a starting 
point, and the 15 drivers available are 
fully documented in the manual. When the 
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new printer driver has been created, there 
is an excellent 'test' function which will 
send a test sequence to the printer so 
that you can check that the new printer 
driver is performing correctly. 


The supporting 64 page manual is 
adequate, but is not always easy reading. 
It is somewhat variable in the quality of 
its printing, and it can sometimes be 
difficult to distinguish between serious 
information and examples of the use of 
highlights. There is, in addition, one 
glaring and crucial error, which could 
well undo all the help that Watford has 
set out to provide. That is the frequent 
use of the underline character instead of 
the hyphen to represent one of the 
highlight markers. This can only confuse. 
The manual also fails to state how the 
printer generator program should be 
invoked (*PRINTER GENERATOR), a quite 
crippling omission. 


That said, Watford's new ROM has much 
to offer the View enthusiast, particularly 
those who wish to make full use of the 
many features of recent dot matrix 
printers (but see our own multi-character 
printer driver in this issue!). Whether 
the results justify the price you must 


decide for yourself. 
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Preserving Tube Text 
Owners of a 6582 second 
processor and Wordwise Plus 
may be interested to know 
that any text in Wordwise 
Plus can be recovered after 


the machine has been 
switched off, so long as 
the tube has not been 
switched off. This is 


because all text is stored 
in the second processor 
memory, rather than the BBC 
memory. 

Mick Allen 


Clearing a REPEAT Loop 


The most obvious way to 
reset all arrays within a 
running program is to use 
CLEAR, and then dimension 
each array again. But you 
should not do this within a 
REPEAT loop (or a FOR-NEXT 


loop) because all loop 
pointers (and of course 
FOR-NEXT loop variables) 
are also cleared. If it is 
essential to clear arrays 
within a loop, you could 
either resort to a GOTO 


loop (perish the thought!), 
or clear the array one 
element at a time using a 
separate FOR-NEXT loop. 
David Graham 


FX80 Multi-font Printout 


Using ESC 33 you can 
access almost all of the 
FX8Ø's different fonts. 
This allows the use of a 
short program to print an 
example sheet showing all 
64 different modes (though 
you may think that there is 
a certain amount of 
duplication!). The program 
is based on one published 
in the FX8Ø manual. 


52 


1Ø REM FX8Ø MULTIMODE PRINT 
2Ø VDU 2 
3Ø FOR mode=Ø TO 63 
AØ VDU 1,27,1,33,1,9 
50 PRINT"Mode ";mode; 
68 VDU 1,9,1,27,1,33,1,mode 
76 PRINT"ABCDEF abcdef 1234 
567896" 
88 NEXT:VDU 3 
David Graham 


Zero Page Workspace 


Machine code routines 
often need some zero page 
workspace. Contrary to 
popular belief, locations 
&7Ø to &8F are NOT reserved 
for the user. Locations &ØØ 
to &8F are allocated to the 
current language: Basic 
allows the user &7Ø to &8F, 
but other languages do not 
(e.g. View uses all the 
locations from &70 to &8F, 
and can crash if these are 
tampered with). 


If zero page locations 
are needed, the original 
contents should be restored 
afterwards (the exceptions 
being &A8 to &AF which are 
allocated as star command 
workspace - for both ROMs 
and library routines stored 
on the current filing 
system). 

Andrew Benham 


Basic BOOTs 


When building a !BOOT 
file, remember that the 
machine might not be 
running Basic as the 
current language. If Basic 
commands are to be included 
in the !BOOT file, make the 
first line '*BASIC'. (The 
same principle applies to 
any language-dependent 
!BOOT file). 

Andrew Benham 


1770 Free Gift 
The sideways RAM 
commands included in the 


Acorn 1778 DFS provide a 
useful undocumented funct- 
ion: a block move which 
will work across the tube. 


The commands *SRREAD 
and *SRWRITE (documented in 
the 1770 DFS manual) will 
work with any I/O processor 
address in the <sram start> 
field. 


For the SRWRITE 
operation, any ROM socket 
can be specified (as a 
dummy variable), but for 
the SRREAD operation the 


socket specified must 
contain sideways RAM. 

The source/destination 
address uses 32 bit 
addressing, whereas the 


sram address uses only 16 
bits (but is forced to be 
in the I/O processor), for 
example: 


*SRWRITE 90003000 +20 FØØ F 


will copy &2Ø bytes from 
&3ØØØ in the second 
processor to &EØØ in the 
I/O processor. 

Andrew Benham 


Double Blurr 

A quick way to achieve 
"double height text' in 
mode 1 on a BBC Micro is to 
use the following line: 


VDU 24Ø,23,0,Ø,255,0,9,9,9, 
8,0 


This re-programs one of 


the 6845 display registers 
to produce the blurred 


effect! 
P.Mudhan 
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Mastering Astadd 

Those people who have 
tried to get the popular 
BEEBUG CAD program ASTAAD 
(Vol.2 Nos.7 & 9) to work 
on the Master will have 
found that the text option 


does not work properly. 
This is because the 
character definitions on 


the Master are not held in 
the Operating System, but 
in the 12K private RAM. 


To allow ASTAAD to 
function properly, change 
line 518 to read: 


518 28900= 
ASC (MIDS (TS,C%,1)) 


and add these new lines: 


465 OX=X%:0Y=Y% 
512 X%=Ø:Y%=9:A%=10: 
CALL &FFFI 
514 A%=&9Ø1 
516 X%=0X:Y%=0Y 
Alan Hatfield 


ASTAAD was one of the most 
popular programs that we 
have published in BEEBUG, 
and still rates very highly 
in comparison with today's 
much higher standards. We 
are thus very pleased to 
publish this information, 
and maybe give ASTAAD a new 
lease of life. 


Floppywise Master 
The review of our (Soft- 
ware Services) Floppywise 


Master in BEEBUG Vol.5 No.7 
contains so many miscon- 
ceptions and inaccuracies 
that we feel entitled to 
put the record straight. 


The ROM is not an update 
of Floppywise - that dis- 
tinction goes to Floppywise 
Plus. This latest offering 
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gives the same facilities 
to Master owners. 


We are criticised for 
having nothing new in the 
ROM. Its novelty lies in 
the machine it is used on. 
We intended to give people 
all the facilities they 
were used to on the Model B 
which were not available on 
the Master 128. At the same 
time each command was 
upgraded to make use of the 
new features of the Master. 


We were also accused of 
including two commands al- 
ready present on the 
Master. Anyone conversant 
with this machine is well 
aware of the limitations of 
the SRLOAD command - it 
either takes ages to load, 
or overwrites your program. 
Our RAMLOAD command loads 
instantly with no disrupt- 
ion to work in hand. 


The reviewer is entitled 
to his opinion, but I think 
some consideration should 
be given to the facts 
before expressing it. 

G.T.Boden 
Software Services 


Through lack of space we 
are unable to reproduce 
fully the letter from Soft- 
ware Services, but the sal- 
ient points are as above. 
Any review is necessarily 
an expression of one per- 
son's views, while lack of 
space may well mean that 
features considered import- 
ant by the supplier are 
left out. We believe it 
reasonable to give space to 
such a letter, but we would 
rather leave any further 
judgement to our readers. 


Emerging Comma 

Jagdish Sah's Part- 
Merge/Save utility (BEEBUG 
Vol.5 No.6) does not 
conform to the general rule 
that commas are not 
required after the file 
name. The addition of: 


2325 CMP #32:BEQ space 
2335 .space 
makes either of the 
following formats valid: 


*MERGE PART ,1ØØØ , 2000 
*MERGE PART 1000 ,2000 
Peter Howard 


Ah, So 
Two years ago I 
purchased a Canon PW-1|Ø8ØA 


dot matrix printer which I 
find excellent. However, I 
was unable to use the codes 
to define NLQ characters. I 
wrote to Canon UK but had 
no reply. I purchased a 
book, but this did not 
include the codes I wanted. 
I also wrote to the 
suppliers, but they did not 
fully answer my question. 


Finally, I was lucky 
enough to be in Japan, and 
wrote direct to Canon who 
answered my question simply 
and fully. Fit a RAM chip 
(6264) in socket IC3 and 
turn dip switch 1-5 ON. I 
can now define NLQ 
characters without any 
problem. One point worth 
mentioning, do not use the 
printer reset command 
(0C27,64 in Wordwise) after 
defining NLQ characters, or 
they will be erased. 

David Else 


Other readers may find this 
information of help. 
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MORE COMPLEX 
ERROR HANDLING 
Last month 
we took a look 
at the essen- 
tials of error 
handling. In 
this issue I 
want to take 
the subject a 
little further, 
going beyond 
the introduct- 
ory level. Here 
we will look at 
two aspects of 
error handling: 


st 
Course 


Making Good 
Use of Errors 
Part 2 


using the 
Escape key to 
perform more complex tasks; and more 


complex error filtering which will allow a 
program to respond differently to 
different kinds of error. But firstly a 
word of warning. 


DESTRUCTION BY ERROR 


As I mentioned last month, when an 
error of any kind occurs in Basic, the 
loop counters for FOR-NEXT and 


REPEAT-UNTIL loops are lost. This means 
that if your program is to recover from an 
error (including pressing the Escape key), 
it must restart at some point outside all 
such loops. But there is a further proviso 
which must be borne in mind in more 
complex error handling routines. Unfor- 
tunately, if an error occurs at any time 
when local variables are active, they are 
made global. To make this clearer, try 
running program 1. 


It is self-documenting, and you will 
see that if you press the space bar when 
requested, the procedure will terminate, 
and the value of AS will remain unchanged, 
but if you press Escape as prompted, while 
still in the procedure, AS will take on 
the value assigned to it locally during 
the procedure. 


The upshot of this is that you should 
not use local variables in programs where 
a full recovery from errors is required, 
unless of course the restarting point 
after the error is able to cope with 
erroneously assigned variables. Another 
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around this is to 
ensure that local 
variables are only in 


force at times when the 
Escape key is disabled, and when no filing 
system operations are permitted, since 
these may generate errors even in a fully 
debugged program. 


Program 1 


1ØØ REM LOCAL VARIABLE CONFUSION ver 3 
116 ON ERROR IF ERR=17 THEN 159 ELSE R 
EPORT: PRINT" @ line ";ERL:END 
128 AS="RIGHT" 
138 PRINT"AS = ";A$ 
148 PROClocal 
158 PRINT"AS = ";A$ 
168 END 
17Ø DEFPROClocal 
180 LOCAL AS 
198 AS="WRONG" 
208 PRINT"Press space to exit procedur 
io 
218 PRINT"AS will remain unaffected" 
2206 PRINT"But if you press Escape" 
23Ø PRINT"AS will take on the value as 
signed" 
24Ø PRINT"to it locally, and its forme 
r value" 
25Ø PRINT"will be lost"' 
26Ø IF GET 
27Ø ENDPROC 


ESCAPING FROM FIELDS 

The Escape key provides a very useful 
way of moving back through the fields of a 
data input screen. In a typical input 
screen, data is entered one field at a 
time, and as each entry is completed the 
input cursor moves down to the next field. 
If you make a mistake, pressing Escape 
would take you to the previous field, and 
so on. The accompanying program 
incorporates this idea. It is a little 
long for a demonstration program, but it 
has the merit of being fully operational, 
and although the data entered in each 
field is not used, it is printed out at 
the end, as a check that the answers to 
each question have been correctly picked 
up by the program. 


When you run the program you will see 
that, for the sake of simplicity, each 
question only requires a Y/N answer. 
Keying either, takes you to the next 
field, and pressing Escape takes you up 
one field. If you are already at the first 
when Escape is pressed, you are asked 
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REM Escape Key Demo v7 
REM Escape to move up one field 


REM Return to move down 


DIM ans(4) 
ON ERROR GOTO 1160 
MODE7 
PROCinit 
ON ERROR GOTO 1168 
PROCchoice (1) 
ON ERROR IF ERR=17 GOTO 148 ELSE G 
OTO 1160 
17@ PROCchoice (2) 
180 ON ERROR IF ERR=17 GOTO 16Ø ELSE G 
OTO 1160 
198 PROCchoice (3) 
200 ON ERROR IF ERR=17 GOTO 180 ELSE G 
OTO 1168 
21Ø PROCchoice (4) 
220 ON ERROR GOTO 1168 
2500 
24Ø REM REST OF PROG 
25Ø PRINT'''"REST OF PROGRAM" 
26Ø PRINT '"Answers are: "; 
27Ø FOR n=1 TO 4:VDU ans (n) : NEXT 
28Ø PRINT 
29Ø PRINT"Press any key to repeat ";:I 
F GET THEN CLEAR:GOTO 199 
300 END 
STØ 
1ØØØ DEF PROCinit 
1Ø1Ø FOR A=1 TO 2:PRINTTAB (7, 1+A)CHR$13 
1 CHRS141 "ESCAPE KEY DEMO":NEXT 
1020 PRINTTAB (4,7) "DFS (Y/N)" 
1Ø3Ø PRINTTAB(4,1Ø) "Auto-Load (Y/N)" 
1040 PRINTTAB (4,13) "Printer On (Y/N)" 
1050 PRINTTAB (4,16) "Execute (Y/N)" 
1Ø6Ø ENDPROC 
1Ø7Ø : 
1Ø8Ø DEFPROCchoice (n) 
1Ø9Ø *FX15,1 
11ØØ VDU31,25,4+3*n:IF ans(n)<>Ø THEN V 
DU ans(n),8 
111Ø REPEAT:A=GET:UNTIL A=78 OR A=89 OR 
(A=13 AND ans(n)<>Ø) 
112@ IF A<>13 THEN ans(n)=A:VDU A 
113Ø ENDPROC 
114Ø : 
1158 REM ERROR HANDLER 
116Ø MODE 7 
1170 IF ERR<>17 THEN REPORT:PRINT" at 1 
ine ";ERL:END 
118Ø SOUND] ,-15,15Ø,5:PRINT"EXIT"'"Are 
You Sure (Y/N) ?";:IF GET<>89 GOTO 11Ø 
1198 PRINT: END 


whether you wish to exit the program; and 
the program is terminated only if "Y" is 
pressed, Escape being disabled at this 
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point. If you have moved up one or more 
fields by pressing Escape, you are offered 
the previously entered answer to the next 
question, and Return may be pressed to 
confirm the original answer, or, as 
before, "Y" or "N" may be used. 


If you take a look at the program, you 
will see that there are two procedures, 
PROCinit and PROCchoice. The first prints 
up the input screen, and the second 
handles the input of data, validating it, 
and storing it in the array ans(n). We are 
particularly concerned here with the way 
in which the error handling is organised, 
and to see this it is worth glancing at 
lines 118 to 220. Line 118 sets up the 
normal error handler, which exits the 
program unless Escape has been pressed, in 
which case it asks the user if he is sure 
that he wants to quit. Lines 148 to 216 
handle the effect of the Escape key, 
ensuring that each time it is pressed, the 
program moves up one field. The most 
important thing to note here is that each 
line pointed to by an ON ERROR statement 
contains a new ON ERROR statement with a 
destination a little higher up the 
program. 


ESCAPE KEY DEMO 


DFS CY/N) 


Auto-Load CY/N) 


Printer On CY/N) 


Execute (Y/N?) 


REST OF PROGRAM 


MORE COMPLEX ERROR FILTERING 

In the above example, a simple form of 
error filtering was used to distinguish 
between Escape-key-generated errors and 
all other sources of error. It is 
sometimes useful to take the idea of error 
filtering one stage further. For example, 
it is often essential that a program 
should respond differently to a filing 
system error than to a Basic error. For 
example if a particular file cannot be 
found on the current disc, the user should 
be prompted to change either the disc or 
the filename that he has given, amd the 
program should, as far as possible, 
continue from where the error arose. If on 
the other hand the program hits a syntax 
error, it would be quite pointless to 
attempt to continue with the program; 
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instead the program should be terminated, 
giving a full error message. 


If you take a look at the table of 
error types and their corresponding error 
numbers you will see that they have been 
conveniently grouped. Model B users should 
refer to section 46 of the User Guide. 
Master users are less fortunate in that 
error tables are spread over the two parts 
of the Reference Manual (pages H.4-2, 
1.4-2, J.4-4, J.8-5 and M.2-1). As you 
will see, Basic error numbers lie below 
128, while filing system error codes are 
all above 128. We can thus design an error 
handler which takes account of this. 


Depending on the kind of program which 
you are writing, there may be other types 
of error which you wish to filter out for 
special treatment. One obvious candidate 
is error number 18, division by zero. You 
may have a perfectly debugged program, but 
if the user enters certain parameters as 
zero, then a division by zero error may 
occur, and unless you take account of this 
in the error handler, it will cause the 
program to crash. Of course, you could 
check all user input in an attemnt to 
avoid the problem, but this is not always 
easy. For example, certain "zero" inputs 
would probably be quite legitimate; and it 
is only in combination that they may cause 
a problem. The best way around this is 
usually to trap the division by zero 
error, and advise the user accordingly. Of 
course not all division by zero errors are 
the result of inappropriate user input, 
some arise from bad programming, and these 
should be resolved before the error 
handler is incorporated. 


The bones of a routine to trap filing 
system and division by zero errors are 
given in the following example. This 
routine responds in three different ways 
according to the error number. If Escape 
is detected (error 17), the program is 
resumed at line 200. This allows Escape to 
take the user to a particular point in the 
program. As we said earlier, this must not 
be inside a FOR-NEXT or REPEAT-UNTIL loop 
of any kind. Note the new ON ERROR 
Statement at line 210. This is necessary 
in order to cancel the effect of the ON 
ERROR OFF encountered in line 5000, 
other than 


If any error Escape is 


detected, then line 5820 is executed to 
clear the screen and print the error 
56 


message. This is required whatever the 
nature of the error. If the error is not 
in the program itself (i.e. it is a filing 
system or division by zero error) then 
PROCspace is called (line 5Ø3Ø) to produce 
a warning beep, and leave the error 
message on the screen until the user 
presses a key. Note that the error line 
number is not given since this should be 
of no consequence. Once a key is pressed, 
the program resumes at line 120. Note that 
the error handler leaves the screen in 
mode 7, so that the main program must 
reset this to the desired mode as a matter 
of priority. If on the other hand a 
non-recoverable Basic error occurs, line 
5040 prints the error line number to 
accompany the error message already 
printed, and the program goes through an 
exit routine which resets any required 
parameters (line 5050). 


Even now we could still take this much 
further, allowing filing system or 
division by zero errors to take the user 
not to a common starting point early in 
the program, but to a point very close to 
where his error occurred. But this 
involves a multiplicity of ON ERROR 
statements, and is beyond the scope of the 
present article. It is hoped nevertheless 
that this small foray into error handling 
will encourage the reader to make better 
use of errors, and to create tailor made 
error handling routines for all his major 
programming projects. 


100 ON ERROR GOTO 5000 
11@ PROCinit 
120 REM SET MODE HERE 
130 REM START OF MAIN PROGRAM LOOP 
208 REM GO TO HERE IF ESCAPE PRESSED 
218 ON ERROR GOTO 5000 
vere ete 
4998 REM ERROR HANDLER 
5ØØØ ON ERROR OFF 
5010 IF ERR=17 THEN GOTO 200 
5828 MODE 7:REPORT 
5039 IF ERR>128 OR ERR=18 THEN PROCspa 
ce:GOTO 120 
5049 PRINT" at line ";ERL 
5056 *FX4,Ø etc 
5869 END 
5070: 
5888 DEFPROCspace 
5898 ON ERROR GOTO 5000 
51ØØ PRINT'"Press space to continue" 
511Ø SOUND1,-15,2ØØ,1Ø:IF GET 
512Ø ENDPROC 
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LABYRINTH 


Yet another top-quality game for the 
Beeb, this time from Tom Price. The 
graphics are brilliant, the sound 
effects superb, and the game itself is a 
real corker. What more can we say? 


Poor old Mike, the reckless explorer, 
has stumbled into a massive maze, packed 
with nasties and patrolled by man-eating 
ghosts. Can you help him escape from the 
wicked grasp of the Labyrinth? Let's hope 
so, for his sake... 


Mike can spin the turnstiles to shut 
out the pursuing spooks, and may even coax 
them into the lethal pumpkins, getting rid 
of both pumpkin and ghost simultaneously. 


Quite apart from those hazards, however, 
our luckless hero still has to avoid the 
lethal poison, and he must gather up all 


the green gems that are lying on the floor 
before the door to the next room will 
open. 


Use the 'Z' and 'X' keys to move Mike 


left and right, with '*' and '?' moving 
him up and down. The program, which 
includes a high score table, is in two 


separate parts; the first CHAINing the 
second. Type in part one and save this as 
'LABRNTH", then enter part two and save 
this as 'LAB2', remembering to save it 
straight after part one if using tape. Be 
particularly careful when entering the 
succession of VDU calls in lines 2318 to 
2380. Then CHAIN the program 'LABRNTH' to 
start the program. 


Those with a system where PAGE is 
higher than &EØØ should include the 
following move-down routine at the start 
of the second program: 


1 IF PAGE<&E@1 THEN 19 

2 *K.Ø *T.|MFORA%=ØTO (TOP-PAGE) STEP4 
: AB ! &EØØ=A% ! PAGE: NEXT |MPAGE=&EØØ |M 
OLD | MDELETE1 , 4 | MRUN | M 

3 *FX138,0,128 

4 END 
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The maximum number of ghosts is 
controlled by the variable ng% at line 130 
in program two. It is usually set to I, 
meaning that no more than two ghosts are 


allowed at a time, but raising the value 
within the limits of memory allows a 
greater number. This, however, will slow 
the game down. One solution is to lower 
the value of del% (also line 130), but 


this has the side effect of creating a 
noticeable difference of speed between 
when there are ghosts and when there are 


not. Experiment with the values as you see 
Bites 


The names for the high score table are 
held in a DATA statement at line 3470, if 
you wish to alter them. 


Labyrinth 


ty Tom Price 


Press Space to play the game 


1Ø REM Progran LABRNTH 

20 REM Version BØ.1 

3Ø REM Author Tom Price 

40 REM Beebug March 1987 

50 REM Program subject to copyright 
60 : 

100 MODE 7 

110 RESTORE 

120 FOR 1%=224 TO 253:VDU 23,1% 
130 READ a$:FOR J3=0 TO 7 

1408 VDU EVAL ("&"+MIDS (a$ ,J3*2+1 ,2) ) 
15Ø NEXT, 

160 FOR I%=Ø TO 21 

17Ø READ I%?&AØØ,1%?&A29 

18Ø NEXT 

19Ø CHAIN"LAB2" 


1000 DATA 2069202070003828 
1918 DATA 7010704070003828 
1028 DATA 7810381070003828 
1938 DATA 2838ØØ1C14141CØØ 
1040 DATA |E3F3F35353F3BIE 
195Ø DATA 78FCFCACACECDC78 
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1Ø6Ø DATA 1E1C3C38387Ø6ØCØ 
1Ø7Ø DATA 78383C1C1CØEØ6Ø3 
1988 DATA ØØØØØØØØØØØØØØØS 
1998 DATA Ø8ØØØØØØØØØØØØØØ 
11ØØ DATA ØØ1C3E2A6B7F7763 
111Ø DATA 7F41557F3E3E1CØØ 
1128 DATA 1818ØØ3C5A182424 
113Ø DATA 10C3E2A363E141CØØ 
114Ø DATA 226316ØC18346322 
115Ø DATA 1C3E2A3E3E1C@81C 
116Ø DATA 1C1C1C1C7F7F7F7F 
117Ø DATA 1C1C1C1C1C1CICIC 
118Ø DATA ØØ8181FFØØ42427E 
119Ø DATA ØØ24243CØØ1818ØØ 
12ØØ DATA 387C547C7C381Ø38 
121Ø DATA 3E7F1C1C1C143677 
122Ø DATA 1C3E2E7E3E1CØ81C 
123Ø DATA 7E3F1C3E3EB7E346 
124Ø DATA 5E7F3D1C3C3C6EE6 
1258 DATA 387C747E7C381 038 
1260 DATA 7EFC387C7CEDC762 
1278 DATA 7AFEBC383C3C7667 
1288 DATA 3F5C1E3F333663EØ 
1298 DATA FC3A78FCOC6CC6Ø7 
1300 : 

1310 DATA Ø 
1328 DATA 2 
133Ø DATA 4 
134Ø DATA 6 
1350 DATA 8 


1Ø REM Program LAB2 

2Ø REM Version BØ.1 

3Ø REM Author Tom Price 

4Ø REM Beebug March 1987 

5Ø REM Program subject to copyright 


106 HIMEM=&2FFØ 
11Ø ON ERROR GOTO 29Ø 


13Ø ng%=1:del3=5d 
14Ø PROCinstr 
158 PROCinit:PROCstrings 
168 REPEAT VDU 22,2:VDU23;1Ø,32;Ø;Ø;Ø 
17Ø PROCvars:PROCscreen 
18Ø REPEAT PROCsetup 
19Ø REPEAT PROCman 
208 IF TIME>-1 PROCtime 
218 FOR H%=Ø TO ng% 
220 IF Z% H$=ng%:GOTO 240 
230 PROCghost (H%) 
240 NEXT:UNTIL Z% 
258 IF Z%>1 PROCdead ELSE PROCscreen:I 
F T%>25 T%=T%-25 
26@ UNTIL Z%=3:PROChall 
278 UNTIL FALSE 
280 : 
29Ø ON ERROR OFF 
3ØØ MODE 7:REPORT:PRINT" at line "ERG 
31Ø END 


320 : 

1ØØØ DEF PROCinit 

1Ø1Ø DIM man$ (3,1) ,ghost$ (1) ,a$ (8) ,x% (n 
98) ,y% (ng%) ,on’ (ng%) ,dir% (ngb) , ix% (3) ,iy 
% (3) ,p (3) , tunes (1) ,hi% (9) 

1Ø2Ø tunes (Ø)="A8D8H8M8IGH4F4D4C4A8" 
1Ø3Ø tunes (1)="M6M3K3J3H3F6A3F6" 

1Ø4Ø RESTORE 

1058 FOR I%=ø TO 3 

1Ø6Ø READ ix’ (I%) ,iy% (1%) 

1078 NEXT 

1980 FOR I3%=Ø TO 7 

1Ø9Ø READ S(&9ØØ+1%*16) 

11ØØ NEXT 

111Ø FOR I%=Ø TO 7 

112Ø hi%(I%)=1E4-1E3*I% 

113Ø NEXT 

114Ø ENVELOPE 1,1,-1,Ø,Ø,-1,-1,-1,4Ø,-6 
;-2,-2,8Ø,8Ø 

115@ ENVELOPE 2,1,-4,1,Ø,2,5,4,1ØØ,-1,- 
1,-2,9Ø,75 

116Ø ENVELOPE 3,1,1,2,3,1Ø,2Ø,3Ø,11Ø,Ø, 
-2,-3,11Ø,Ø 

117Ø ENVELOPE 4,1,1,2,-2,1,1,1,9Ø,-2,-3 
;=5,1ØØ,75 

118Ø ENDPROC 

1198 : 

12ØØ DEF PROCvars 

121Ø S%=Ø:G%=Ø:T%=1|5Ø:L3=3 

122Ø ENDPROC 

123Ø : 

124Ø DEF PROCman 

125Ø A%=Ø:B%=Ø:P%=Ø 

126Ø C%=Q0%:D%=R%:Q0%=Ø:R3=Ø 

127Ø IF INKEY(-1Ø5) R%=3:Q%=(Y% DIV 3) 
MOD 2:B%=3:P%=POINT (X%*64+32,943-Y%*32) 
128Ø IF INKEY (-73) R%=3:Q0%=(Y% DIV 3) M 
OD 2:B%=-3:P%=POINT (X%*64+32,1Ø37-Y%*32) 
129Ø IF INKEY(-98) R%=1:Q%=(X% DIV 2) M 
OD 2:A%=-2:P%=POINT (X%*64-32,98Ø-Y%*32) 
13ØØ IF INKEY(-67) R%=2:Q%=(X% DIV 2) M 
OD 2:A%=2:P%=POINT (X%*64+96,98Ø-Y%*32) 
131Ø IF A% B%=Ø 

132Ø IF P%=11 OR P%=6 OR P%=9 OR (P3=1 
AND Y%<>14) ENDPROC 

133Ø V%=X%+A%:W%=Y3+B% 

134Ø IF V%<Ø V%=18:Q%=1 

1350 IF P%=1Ø V%=Ø:0%=Ø 

136Ø K%=&A4Ø+V%DIV2+W%DIV3*1Ø 

137Ø N%=?K%:IF N%=6 ENDPROC 

138Ø IF P%>11 PROCbar 

139Ø IF X%=V% AND Y$=W% AND C%=0% AND D 
%=R% ENDPROC 

14ØØ VDU 31,X%,Y%,32,1Ø,8,32,31,V%,W%,1 
7,7:PRINT man$ (R%,Q3) 

1410 ?K3=Ø 

1420 IF N%=7 Z%=1 

1430 IF N%=8 PROCScCore(1Ø) :E%=E3+1:IF E 
3=88 PROCgate 

1449 IF N%=4 OR N%=5 Z%=2:aS=aS (NS) 
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1450 IF N% AND N%<4 SOUND 3,3,5Ø*N%+25, 
1 : PROCscore (N3*1 98) 

146Ø X%=V%:Y%=W% 

147@ ENDPROC 

1486 : 

1490 DEF PROCbar 

15ØØ SOUND 2,1,4@,1 

1510 C%=64*(X%-1+A3DIV2+ (P3=1 4) - (P3=15) 
) 

1528 D%=985-Y3*32-B3*1 6+48* ( (PS=12) - (PS 
=13)) 

1530 VDU 29,C%;D%; 24,0; 0; 64; 4; 18,3,88F, 
16,24,128;Ø;184;4;18,3,88E,16,29,C%+1ØØ; 
D%-64;24,Ø;Ø;1;48;18,3,88D,16,24,Ø;88;1; 
132;18,3,&8C,16,26,18; &8Ø 

154Ø ENDPROC 

1550 : 

156Ø DEF PROCgate 

157@ PROCtune (1) 

1580 VDU 24,240; 196; 328; 208; 16,26 

1598 ENDPROC 

1600 : 

1610 DEF PROCdead 

1620 L%=L%-1|:2%=2-(L%<1) 

1634 SOUND &11,08,0,9 

1648 FOR 1%=228 TO 200 STEP -1 

1658 PROCwail 

1668 VDU 31,X%,Y%:PRINT man$ (R3,Q%) 

1678 PROCwail 

1680 VDU 31,X%,Y%:PRINT aS 

1696 NEXT 

1700 IF G3=Ø GOTO 1756 

1710 FOR I13=Ø TO G%-1 

172Ø VDU 31,x% (13) ,y% (13) :PRINT aS (on% 
15)) 


173Ø NEXT 

174Ø FOR I=1 TO 2ØØØ:NEXT 

1750 ?(&A4Ø+X%DIV2+Y%DIV3*1Ø)=6 
176Ø VDU 31,X%,Y%:PRINT a$ (6) 
177Ø VDU 31,18-L%;32 

178Ø ENDPROC 
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1798 : 

18ØØ DEF PROCwail 

181Ø FOR I=] TO 10:NEXT 

1820 SOUND 1,2,1%,1 

1838 ENDPROC 

1846 : 

18508 DEF PROCghost (H%) 

1860 IFH%>=G% FORI=1TOdel%: NEXT: ENDPROC 
1878 IFdir%(H%)<Ø VDU31,8,14,17,7:PRINT 
ghost$ (Ø) :on% (H%) =?&A6C: dir’ (H3) =3: ENDPR 
oc 

1880 1%=x%(H%)*64:J%=y% (H$) *32:p% (Ø) =PO 
INT (13-32, 980-J%) : på (1) =POINT (1 %+96 , 980- 
J%) :p% (2) =POINT (13+32, 943-J%) : på (3) =POIN 
T(13+32,1Ø37-J%) :NS=RND (90) : IFN%<57ORp3 ( 
dir% (H%)) dir% (H%)=FNgmove 

1898 VDU31 ,x% (H%) ,y% (H3) : PRINT aS (on 
)) : x3 (HS) =x% (HS) +i xd (dir? (HS) ) : y% (HS 
gle Meer al : VDU31 ,x% (H3) ,y% (H 
7,7:PRINTghost$ (1-dir% (H$)MOD2) : vida 

2 (&A4Ø+x3 (HE )DIV2+y% (H$)DIV3*1Ø) : IFon 

%)=5 PROCgdead 

19ØØ IFX%=x% (H%) ANDY3=y3% (H%) aS=ghost$ ( 
1-dir% (H$)MOD2) :Z2%=2: ENDPROC 

191Ø ENDPROC 
1920 : 
1938 DEF PROCgdead 
1946 ?(&A4Ø+x% (H%) DIV2+y% (HS)DIV3*1Ø)=Ø 
1954 SOUND &11,0,9,9 
1960 FOR I1%=2ØØ TO 220 
1976 PROCwail 
1988 VDU 31,x% (H%) ,y3 (H%) ,17,7:PRINT gh 
st$(I% AND 1) 
998 PROCwail 

2008 VDU 31,x% (H%) ,y% (H%) : PRINT a$ (5) 
2018 NEXT 

2028 VDU 31,x%(H%), 
2038 G% =G3-1 

2048 PROCscore (500) 
2050 IF H3=G% ENDPROC 

2060 FOR I%=G% TO H%+1 

2670 x% (13-1) =x% (1%) s y3 (13-1) =y% (IS) :on 
% (13-1) =on% (1%) :dir% (13-1) =dir% (1%) 

2080 NEXT 

2698 ENDPROC 

2100 : 

2118 DEF FNgmove 

2128 1%= (X%-x% (HS) )DIV2:J%= (Y%-y% (H%) )D 
IV3:A%= (SGN (I%) +1 ) DIV2:B%=3- (SGN (J%) +1)D 
IV2: IFN@MOD9<4ORABS (1%) <ABS (J%) C%=A%:A% 
=B%:B3=C% 

213Ø IFp%(A3)=Ø =A% ELSEIFp%(B%)=Ø =B% 
214Ø IFp%(dir%(H%))=Ø =dir% (H%) 

2158 D%=1|:FORI=ØT03:D%=D%- (p% (13) =G) :N 
EXT: IFp% (Ø)=Ø D%=D%-1:IFN%MODD%=Ø =ø 
216Ø IF p%(1)=Ø D%=D%-1:IF N%MODD%=Ø =1 
217Ø IF p%(2)=Ø D3%=D%-1:IF NMODD%=Ø =2 
2188 =3 

2198 : 

22ØØ DEF PROCsetup 


o 


y% (H%) :PRINT a$ (Ø) 
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221Ø Z%=Ø:G% 

222Ø R%=Ø:0% 

2230 ?&A58=Ø 

2240 X%=8:Y%=8:VDU 31,8,8,17,7:PRINT ma 
nS (0,9) 

2250 TIME=-T3:U%=11:PROCtime 

2260 ENDPROC 

2270 : 

2280 DEF PROCscreen 

2290 E3=Ø 

2300 FOR I%=HIMEM TO &2FFF STEP 4:!1%=0 
: NEXT 

231Ø VDU 23;1Ø,32; 3; Ø; Ø:VDU23;12,5;0; ø; 
8: VDU23; 13,255; 0; Ø; Ø:VDU19,1Ø,Ø; Ø; :VDU19 
19,0; Ø; :VDU19,15,3; Ø; :VDU19,14,3; 0; : VDU1 
9,13,3;9; :VDU19,12,3;Ø; :VDU19,11,5; Ø; : VD 
U19,10,0; Ø; : VDU26:VDU16:VDU4:VDU17,2 

2320 PROCscore(Ø):VDU 17,2,31,19-L$; :PR 
INT STRINGS (L%,CHR$236) 

2330 VDU 5,18;9,25,4,1248;44;25,5,1248; 
1007;18;6,25,4,0;12;25,5,1247;12;25,5,12 
47; 975;25,5,0;975;25,4,1279;44;25,5,1264 
444; 25,5,1264; 1007; 25,5,1279; 1007; 26,18; 
&8B,24,216; 100; 352; 208;16,24,0; 486; 96;59 
216 

2340 VDU 24,11127486;1247;592;16,24,472 
4486; 508;592;16,24,472; 676; 608; 784; 16,24 
,1264;516;1279;624; 16,18; &80,24,1112;500 
41247;576;16,24,472; 500; 608;576;16,24,48 
8;676; 592; 784;16 

2350 VDU 24,0; 500; 128;576;16,24,232;116 
7336; 208; 16,24,1264; 532; 1279; 608;16,18;& 
8B, 24,240; 196; 328; 208; 16,26,18;10,25,4,1 
248; 500; 25,1,0; 76;18;76 

2360 FOR I%=0 TO 21 

2370 VDU 26,25,4,64+128*13?&AØØ; 244+96*1 
$7&A20; 237 
2380 IF RND(2)=1 VDU 29,128*I%?&AØØ; 96* 
1378A20+8724,0;0;64;4718;88F,16,24,128;Ø 
;184;4;18;&8E,16 ELSE VDU 29,96+128*1%7& 
AØØ; 96*1S?&A20-56; 24,0; Ø; 1;48;18;&8D,16, 
24,0; 88; 1;132;18;88C,16 
2390 NEXT 
2406 VDU 26,4 
2410 FOR I%=Ø TO 99:1%?&A40=8:NEXT 
2420 ?&A92=7: ?&A58=0: P&A68=0: ?&A6C=Ø: 7& 
A71=0 
2430 FOR I%=1 TO 3 
2440 REPEAT: X3=RND (1Ø)-1 : Y$=RND (1Ø)-1 
245Ø UNTIL ?(X%+Y3*1Ø+&A4Ø)=8 
2460 ?(X%+Y%*1Ø+8A40)=1% 
247Ø NEXT 
248Ø FOR J%=4 TO 5 
249Ø FOR I3=1 TO 2 : 
25ØØ REPEAT:X%=RND (1Ø)=1:Y3=RND (1Ø)-1 
251Ø A%=TRUE:K3=X3%3+Y%*1Ø+&A4Ø 
2520 FOR B3=-4 TO 4 
2530 C%=K3+B3+7* (B%<-1 )-7* (B3>1) 

2540 IF ?C%=5 OR ?C%=4 AS=FALSE 


=Ø 
=Ø 
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255Ø NEXT 

256Ø UNTIL NOT (?K%<8 OR K3?1Ø=7 OR K3=& 
A4E OR K%=&A62 OR K%=&A4Ø OR K3=&A49 OR 
K%=&A9A OR K%=&AA3) AND A% 

2570 ?K%=J%:NEXT, 

258Ø GCOL Ø,&8Ø:FOR I%=Ø TO 99 

2598 VDU 31,2*(I% MOD 1Ø),3*(I% DIV 1Ø) 
+2:PRINT aS (13?&A4@) ; 

2600 NEXT: PROCtune (Ø) 

2618 ENDPROC 

2620 : 

2638 DEF PROCtune(t%) 

264Ø FOR I%=1 TO LEN (tune$(t3)) STEP 2 
265Ø P%=(ASC MIDS (tunes (t%) ,1%)-32) *4-9 
6:F%=ASC (MIDS (tunes (t%) ,1%+1) )-48 

266Ø d%=ASC (MIDS (tunes (t%) ,1%+1))-48 
267Ø SOUND 1,t3*2+2,P%,F% 

2630 NEXT 

2690 REPEAT UNTIL ADVAL (-6)=15 

2706 ENDPROC 

rte 3 

2720 DEF PROChall 

2730 FOR I=1 TO 4ØØØ:NEXT 

2748 CLG 

2750 VDU 22,7,23;10,32;0;0;0,19 

2760 J3=9:FOR I3=7 TO Ø STEP -1 

2770 IF S>hi%(I3) JS=1% 

2780 NEXT:IF J%>6 THEN 2830 

2798 FOR 13%=7 TO J%+1 STEP -1 

2808 hi% (1%) =hi% (13-1) 

2810 $(&9ØØ+1%*16)=8 (£8FØ+1%*16) 

282Ø NEXT 

283Ø hi% (J%)=S% 

284Ø FOR I3=Ø TO 1:VDU &8D81;:PRINT SPC 
(12) "Hall of Fame":NEXT 

285Ø PRINT 

286Ø FOR I%=0 TO 7 

2870 PRINT 'SPC(5);I%+1;". ";$(&9ØØ+19*1 
6) ;TAB(24);" ... ";RIGHTS ("ØØØØØ"+STRS (h 
i&(1%)),6) 

288Ø NEXT 

289Ø *FX 15,1 

29ØØ IF J%<9 PROCenter 

291Ø PRINTTAB (6,23) CHRS&83 "Press Spac 
e to play again" 

292Ø REPEAT UNTIL GET=32 

293Ø ENDPROC 

2940 : 

295Ø DEF PROCenter 

296Ø PRINTTAB (12,23) CHR$&85 "Enter you 
r name" 

297Ø VDU 31,8,5+1%*2,23;1Ø,114;0;Ø;Ø 
298Ø PRINT SPC(15) TAB(8,5+J%*2); 

2999 !87Ø=8&9ØØ+J%*16: !872=&FF2Ø1Ø 

3ØØØ A%=Ø:X%=&7Ø:Y%=Ø:CALL &FFFI 

3Ø1Ø VDU 23;1Ø,32;0;0;Ø 

3Ø2Ø ENDPROC 

3Ø3Ø : 

3Ø4Ø DEF PROCinstr 
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3Ø5Ø VDU 22,7,23;19,32;9;9;9,19 

3Ø6Ø FOR I3=Ø TO 1:VDU &8D82; : PRINT SPC 
(12) "Labyrinth":NEXT 

3Ø7Ø PRINTTAB (11) CHR$&83 "by Tom Price 

3080 PRINT TAB (Ø,24) STRINGS (2Ø ,CHRS&85 
+CHRS8+CHRS11) 

3Ø9Ø VDU 28,1,24,39,4 

31ØØ PRINT'" Pick up all the green gem 
s to open the exit, watching out for t 
he pumpkinsand the deadly poison, both o 
f which will kill you." 

311Ø PRINT'" Ghosts patrol the maze, a 
rriving eachtime the count-down finishes 
. Spin the turnstiles to block their pat 
h, and tryto lure them into the pumpkins 
' jaws." 

3120 PRINT'" Use the 7,X,* and ? keys 
to move left,right,up and down respe 
ctively." 

3130 PRINT'SPC(13)"GOOD LUCK!" 

3140 PRINT 'CHR$&83 SPC(4) "Press Space t 
o play the game" 

3150 *FX 15 

3160 REPEAT UNTIL GET=32 

3170 ENDPROC 

3180 : 

3198 DEF PROCscore (153) 

3208 S%=S%+1% 

3210 VDU 17,3,3Ø:PRINT RIGHTS ("ØØØØØ"+S 
TRS (53) ,6) 

3228 ENDPROC 

3230 

324Ø DEF PROCtime 

3250 US=U%-1:IF U%=Ø US=1Ø:IF G%<2 x%(G 
%) =8: y% (G%) =14:0n% (G3) =Ø:dir% (G3) =-1:6%= 
G%+1 


326Ø VDU 17,7+6*(U%=1) ,31,1Ø; : PRINT SPC 
(- (U3<1@) ) ;U3: TIME=-T% 

3278 ENDPROC 

3280 : 

3298 DEF PROCstrings 

3300 d$S=CHRS8+CHRS19Ø: a$ (Ø)=" "+d$+" " 
3318 aS (4) =CHRS$17+CHRS7+CHR$237+d$+CHRS 
238: a$ (5) =<CHRS1 7+CHRS1 +CHR$234+d$+CHR$23 
5:a$ (6) =CHRS$1 7+CHRS7+CHRS$249+dS$+CHR$241 
3328 aS (7) =CHRS17+CHRS$7+CHR$242+d$+CHR$ 
243 : a$ (8) =CHRS$1 7+CHRS2+CHRS232+d$+CHRS$23 
2) 

333Ø FOR I%=1 TO 3 

334Ø a$ (1%)=CHRS1|7+CHRSI 3+CHRS5 (223+13)+ 
GS+CHRS$227 

3350 NEXT 

3360 FOR I%=0 TO I 

3378 ghost$ (1%) =CHRS$1 7+CHRS$7+CHRS (13+22 
8) +dS+CHRS (1 3+23Ø) 

3380 FOR J%3=Ø TO 3 

33908 READ A%,B% 

3400 man$ (J%,1%) =CHRS1 7+CHRS7+CHRSAZt+ dS 
+CHRSB% 

341Ø NEXT, 

342Ø ENDPROC 

3430 : 

344Ø DATA -2,0,2,0 

345Ø DATA Ø,3,Ø,-3 

3460 : 

3470 DATA King Beebug,Frizzz,Ed Skin,Bo 
wl,Zits,Slap,Y.Bear,Pot 

3480 : 

3499 DATA 239,245,246,247,249,250 

3500 DATA 239,252,239,245,246,248 

3510 DATA 249,251 ,244,253 


B 
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The last program in the Filer series of 
programs has no reported errors and needs 


no further additions. 


F HELP SYSTEM 


The Filer disc implements a help system 
using the * command *HLP <command>. This 
accesses a file (H.DATA), an ASCII file 
(in fact, created with View) with one 
entry for each command. All Filer programs 
implement * commands, so this provides an 


11 2058 ENDPROC 

+ 2060: 
2070 DEFPROC1s 
2080 MOVE5Ø,3Ø:PRINT"L - Load":MOVE75Ø, 
3Ø:PRINT"S - Save" 

2Ø9Ø ENDPROC 

2108 : 
211Ø DEFPROCfilename 


Beebug March 1987 


excellent way of implementing `a common 
help system. 


CONCLUSION 

The Filer series has proved very 
successful, and we hope that many members 
will continue to use and improve this 
system. It would also be churlish not to 
thank those many readers who have written 
in with suggestions or requests for 
improvements which have contributed to ny 
thinking in this (and earlier) articles. B 


2128 GCOL3,6 

213Ø MOVE5Ø,3Ø: INPUT "Name: "fn$ 
214Ø MOVE5Ø,3Ø: PRINT"Name: "; fn$ 
2158 FNDPROC 

216Ø : 

2170 DEFPROCOsc1i (CL$) 

2180 $&9ØØ=CLS:X%=Ø:Y%=9:CALLSFFF7 
219Ø ENDPROC B 
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New Fonts 


MULTI-CHARACTER PRINTER DRIVER FOR VIEW — really lets you use all 
your printer's facilities when printing View text. 

VIRTUAL ARRAYS (Part 2) — two more techniques described for storing 
large arrays, with driver and demo programs in each case. 

THE MASTER SERIES VERSATILE AUTO-ALARM SYSTEM — machine code 
alarm system and Basic manager program. 

NEW FONTS FOR YOUR BEEB — routine and demo program to provide 6 
new fonts on your Beeb. 

LABYRINTH — yet another staggeringly original game, as colourful and as 
addictive as ever. 

BEEBUG WORKSHOP — all the recursive procedures and functions from this 
month's workshop. 

FIRST COURSE — more example programs on the use of error trapping. 
GRAPHICS BLOCK MOVE — a most useful and adaptable utility for 
selectively copying parts of a mode 2 graphics screen. 

NEW OS CALLS UNCOVERED — useful example of the new calls 
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MAGSCAN — data for this issue of BEEBUG (Vol. 5 No. 9). 
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Our range of top quality 5%” blank discs for the BBC Micro and Master 128 are now 
available at unbeatable prices. 

These discs are from the UK's leading disc manufacturer, individually tested and guaranteed 
for life. They are specially produced and boxed for Beebug. Don't settle for anything less 
than the best. 

Beebug members may claim a 5% discount on the price. If you are not yet a member please 
phone for an application form. 


48 TPI DOUBLE DENSITY 


PRICE MEMBERS 
10 S/S £9.90 £9.40 
25 S/S £23.00 £21.85 
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10 D/S £10.42 £9.90 
25 D/S £26.47 £25.15 
£50.00 £47.50 
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@ UK Postage 10's — £1.00; 25's & 50's — £3.75 
- 4 — ORDER FORM 


Please send me. Qty of 

I enclose a cheque for £ ER EE ni 
or Please debit my Access/Visa No 

Name: Membership No: 

Address: 


NOTE: To claim members prices it is 
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Code: fee, to claim members discount. 


Send to: Beebug Mail Order, Dolphin Place, Holywell Hill, St. Albans, Herts AL1 1EX 
Telephone Orders welcome. Tel: 0727 40303 
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